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De redactie gaat er vanuit dat de ingezonden copy gemaakt is door 
de inzender tenzij in de publicatie uitdrukkelijk anders is 
vermeld.De aansprakelijkheid echter betreffend de auteursrechten 
ligt zonder enig voorbehoud volledig bij de inzender. 


Opmerking; 


Deze keer zult u geen inhoudsopgave aantreffen van de regioschijf . 
Gelet op het aantal pagina's van dit nummer ATOM NIEUWS heeft de 


redactie gemeend de opgave de volgende maal op t i 
i e nem, 
clubblad. P nemen in ons 
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JBOX jv een “nieuwe! utititr » 


r 








ze: 


Na enkele maanden relocaten , verzinnen »  debussen » 
inkorten testen ‚ 689 koppen kKoftie en dertia 
pakjes shas is hij eindelijk klaar & een “nieuwe! 
vtility voor het A-blok > daor mij semakshalve maar 
JBOX sendemd. 

De fitosafie achter het samenstetten van deze toatbox 
is geweest om … naast P-rcharme een semakkelijke 
utility bij de hand te hebben die mij van dienst zou 


kunnen zijn bij het werken aan basic „en 
assembierprosramma's. Aiteen semakketijke commando's 
dus niet bedoeld om pProsramma's mee te laten 
runnen. 


De box moest aan de volgende eisen voldoen? 


=i, Liefst seen statements v die reeds in andere 
teselijk gebruikte , boxen voorkomen … 

=2. Een intel)isente erinteroptie voor samm iss 
commando's , seschikt vaor eik soort printer. 

„5. Feilloos werken op de B@-kolomskaart «v dus „Pe 
correcte wijze seprosrammeerd via vectoren … 

=h. Gemakkelijk door anderen naar wens aan te passen. 
De iistine van de source laat zien hoe genvoudie dat 
zaat. 

=S. Syntax van de commando's zoals in P-Charme. 





Na eerst alie geitity's , die zijn sepybliceerd > 
zoravuidis te hebben bestudeerd en mijn eisen op sen 
rij te hebben sezet is de JBOX ontstaan waardoor ik in 
teite seen LC naar mijn Staak } overbodiae of dubbel 
voorkomende statements meer in mijn schakelkaart heb 
zitten. 


Op de resin=schijf vindt U 2 


JROX 
JBUXsre 
ATOM-assenb ier 


che HADDA-HAFFF 
sayrce #2900- HIEFF id standaard 





De iistina van de source heb ik naar de redactie van 
Atam Nieuws sezonden 


je printeraptie: 


In de commando's DAS-HIP-HEP en PLI 








hayeent de vox 


sen ingeschakelde printer en seett U via Yi de 
most ijhheid sen hardeoey te maken. De printer wordt 
na afisop of bij sebruik van de ESC-toets kedine 


uitaezat, Staar ae printer aeheet niet aan … at 


JBOX 
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wordt nesserd „ De printer wordt geacht op de 

bruit ijze te zijn aansesinten In het 
statement PLIST wardi _bavendien witgesaan van 
Standaardpapier C 5 reseis biank + 5á reseis tekst + 6 
regeis blank = 65 reseis à ‚ De kop van de printer 
dient dan ook precies op de scheurrand van het papier 
te staan voordat U PLIST sebruikt. 





RSEI 


Bladert met toetsbedienins door de asci=tabei van de 
Atom „ Deze tabet wordt in 8 kolommen op het scherm 
setaond „ Betekenis van de headers: A = symbool 3 D = 
decintaie waarde 35 H = hekadecimale waarde 3 5 = 
hekadercimaiëe waarde voor rechtstreeks poken in het 


beeidschermeeheusen. Ontsnappen met ESC 


BIN wannmnn en 


x= “P" of "i“ , maximaal BS bits binaire code , Geeft 
de hexadecimale waarde ervan. 


BIT x 


x= sen variabeie of setat  Geett de binaire code in 
15 bits. 


EAS 


Brenat de Atom in de COS-mode © handia ais U dit witt 
doen zonder de BRERK-toets te wilten sebruiken. De 
taes-en schrijtvectoren blijven onsewijzisd zodat dit 
statement niet saat hansen bid GRHOD en de 
BB-kol omssoft. 


EUR 

Zet cursor resp. AAN of IT afhankelijk van de stand 
waarin ze staat, Dit commando kijkt eerst of de 
schrijtvector is verzet en weigert (bleep!) indien det 
zo iS, Zodoende zeen “hangen” bij de DG-kolnmssott 

DAS Humax of DAS Boom kryyy 


Een disassembler met als bijzonderheid dat teksten » 
die in een machinetaaiprosranma worden geschreven met 


#FTDI … ook als leesbare tekst worden setoond. Bid 
invaer van stieen startadres dk saat DAS 
onvermoeibaar daor tot SFEEF Bij invaer van 


sindadres #yyvy treedt tevens de erinteroptie in 
warkins Ontsnappen met ES: 
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DUHP 


zet de printer aan », Kopieert het scherm in tekstmode 
naar de printer en zet de printer weer uit 


"__EVAR 


drukt alie floatins-pointvariabeten af op het scherm … 


FZERG 


seett atie ftoatins-pointvariabeien de waarde @ … 


HEEP OU 


seeft een overzicht van de JBOX — commando's. 


bre 


HEP Woo ot HEP Meo Hr yyy 


Een S@-koloms hekdume ‚ bedoeld voor de printer maar 
uiteraard zeer fraai voor de B@-kolomskaart. Bi 
invoer van alteen startadres Wo saat HEP 


onvermoeibaar daor tot #FEFF Bij invoer van 
“ìndadres #vyyy treedt tevens de oprinterpetie in 
werkins . 


Ontsnaesen met ESC. 


HIP #xxux ot MIP Maa Hyyyy 


Betekenis?  Hexadeci mai InPut … Per adres wordt 
seheuseninhoud setoond en verschijnt een vraaateken, 
Hierachter kunt U intyeent 

= Return « Directe serons naar volsend adres, 

= Een setai . Dit wordt ais hexadecimaal insepoked en 
er volst een sprons naar het voisende adres. 

— de ietter T + een karakter . Het karakter wardt als 
tekst insepnked en er votet een sprone naar het 
voisende adres. 

=S Er volst een sorons naar het voorataaand 





adres. 

Bij invoer van atteen startadres #xuxxxK gaat HIP 
onvermoeibaar daor tot BFFFF Bij invoer van 
eindadres #ryyy treedt tevens de erinteroptie in 
werkins „ Ontsnappen met ESC. 

HVAR 

tonnt de inhoud van de variabelen a t/m râ 


hexad maai, 
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INFO 


seeft sen overzicht van het in de huidige tekstpasina 
aanwezise bá programma » te weten: PAGE — TOP — TDIM 

(dimpainter) — SIZE flenste prosramda) — FREE (vrij 
tot #8800 of #SFFF > 





L&B 


geeft een overzicht van de in het aanwezige programma 
gebruikte labels. Eerst worden de assembler-labeis getoond, 
daarna de basic-labeis met het regeinummer waar ze 
voorkomen. 

Is een basic-label meer dan eenmaal gebruikt dan wordt 
slechts het eerste regelnummer vermeldt plus een "#" teken. 
Ontsnappen met ESC, 


LIB 

atterel “iibrary“ » toont de eerste reaal (afsekort) 
van alie in net seheusen aanwezige basicarasrammá's » 
voerafsessaan door hun paainanummer, Een “steken 


achter het paginanummer geeft aan waar de tekstoninter 
staat, Vervolsens verschijnt PAG :#& oP het scherm. 
Een return taat de tekstnagina onsewijzìied intypen 
van een andere waarde zet de tekstpasina ap andere 
waarde 
in beide sevailen wordt de top soed gezet 
uitsevaerd. 











LINE x 

waarin x = de ressi die ü zoekt „ Vindt LINE deze 
regi niet dan wordt dit (bleepend) semeid, Bestaat de 
resei wet dan seett LINE U het besinadres van die 


re: 








Hens byvyye Er 


Cmemaory-tiltj vuit het sehsuaen vanat HexKux tot en met 
Hyvyy met Hzz 





FIND Bran kyyen, ? 





{Multi-Find} zoekt vanaf Hxxxx tot en met &yvyy naar 
22? en toont de adressen waar het staat in á kof ommen 
oe het scherm. 

297 kan zijn: 

san hex-setai N 
een maamonic-instru 
zen strina iJ 
Ontsnapcen met ESC 
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PACK 


is een supersnetie opruimer van overbodise spaties in 
een basicPprogramma « Let eroe dat dit ook in teksten 
achter REM sebeurt, 


PLIST x.y 


(printer-list) seeft U … met oprinteroptie ‚ een 
tistins van een prosramma „« Daarbis wordt VOOR eik 
regeinummer « spaties insespronsen „ RCHTER eik 
reseinummer worden y spaties toesevoersd » behatve bij 
Dj , … ass. labels en basiciabeis . 

Zoats bij erinterootie reeds beschreven » waardt Dok 
zodanis selist dat bij sebruik van de printer aeen 
tekst komt te staan OP de scheurrand van het papier. 
PLIST werkt ook soed met het statement TEXT van EDE4, 
Ontsnappen met ESC. 


RAM Hanns ikryyy 


een supersneiie , transparante > ramtest. RAI test het 
aeheusen van #xxxx tot en met #yyyy en geeft adressen 
die zich niet ais RAM sedrasen in vier kotommen op het 
scherm «  Geheuseninhoug saat hierbij WIET verloren. 
Ontsnappen met ESC. 


TRACE Kuur of TRACE Bruma kryyy 
(step uit de josbox) „ TRACE werkt atieen ais U de VIA 


heett semonteerd. Het dit commando kan een 5532 
machinestaaiprosramma stap voor stap C spatiebatk} 


worden _ doortoeen. Eike instructie wordt eerst 
vitsevoerd en vervolgens setoand in de vorm? 

ADRES — MWEMONIC =— & — X =— Y _— STATUSrea — 
STACKPOINTER 


In het serval dat U twee adressen opgeeft wordt het 
sedeeite van Hxkxax TOT Eyyyy wei vitsevoerd maar niet 
stae voor stap getoond . Dit is handie vaar het sevai 
dat U tanse subroutines wijt oversiaan terwijl ze in 
teite toch worden uitsevoerd, Vanaf adres &yyyy krisst 
U dan weer de stap voor stap mode, 

Ontsnappen met ESC, 


VER unum kyyyy, RZZzz 


verseiijkt seheuseninhoud van Bxxx tot en met #yyyy 
met &zzzz en verder „ Hiet met eikaar oversenkomstiae 
adresinhoud wordt op hek scherm getoond. Ontsnaopen 
met ESC. 
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& xx 


werkt ais PISe#KKIEND. Top wordt goedsezet en getoond. 


Zeropagr-gebruikt 

Als ektra benodìsde ruimte is het sebied HIO-#97 
aebruiks De overige sebruikte zeropase-adressen 
richten op seneriei wijze schade aan. 


Brannent 
ROMARbox — JOSbor — ASBKi — COMbax — SOFTtooi — 
statements van A,Warchaìi en Hub Voeten — CKSOS — 


diverse pubiikaties Acorn Nieuws . Mijn dank aan de 
auteurs voor hun inseirerende pubiicaties. 


Ik houd mij voor eike vorm van commentaar op de JBOX 
aanbevoi en. 


Jan Bronzwaer 544939 — 1963, 
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ALomaire weLenswaardished=en 





In de tnop der tijd drinsen de versthitlende, soms 
unieke moselijkneden, van de ATOK tot je door, Het 
ieek mij seen nnaardia idee daar eens iets over te 





schrijven. aa vit van een standaard 
ATGH-contisuratie, met tioating pointvariabeien Dop 
&280B an een ‘normale! diskdrive met ATOM DOS en 
daarbij DECRLOS. Verder werk ik onder BRANBUART: maar 
dat laatste is niet van wezentijk beiang. 





TEXT — +EXEC 
Ha het commando TEXT vit de wordeackrom wordt aties 
wat op net scherm verschijnt ats een textfiie vanaf 
K2800 oppsesiagen. Dit zelfde kun Je doen met een 
tisting van een prosramma. Houd daarbij wel rekenins 
met het tait dat de tektfile meer ruimte in besias 
neemt per resel dan de prosrammafilie. Piaats het 
prasramma daarom bijvoorbeeld eerst in het mhose 
seheusen voordat ie het na TEXT en eet LIST 
weeschrijft naar #2800, Na EDIT en Did Text Y, kan 
deze iistins worden bekeken, Je kunt daarbij gebruik 
maken van de zoektunkties en de mosettjkheid om terug 
te biaderen. Het is ook mogelijk om veranderingen aan 
te breneen met behuip van de texteditor, Echter is in 
de wordpackrom seen commando beschikbaar waarmee van 
aen textfijte weer een gewone tistins gemaakt kan 
worden. Dit commando zit wel in de DISK-ram. Schrijf 
serst de texttile van de tisting naar diskette. in de 
tekttile mosen aileen veaais vit de listina staan. Piet 
HEXEL "textfite” wordt de textfits weer terussemuteerd 
naar gen mormate listing, Op deze manier kun Je de 
wijzisinsen in de prosrammatite op een eenvaudiae en 
nverzichtelijke manier manier aanbrensen. Invaer van 
reseis ianser dan Bé karakters is op deze manier ook 
moaestijk sewDrden. 

















De Disk catatoaus. 
Hat sebeurt wei eens dat door een of andere storina af 
s wpdracht de catatosus van een diskette 
wordt vervarmd. Veei zaken: zaais verkeerde austitiers 
kinnen worden vecht getrokken door gebruik te maken 
van de commansa's wit de DISKerom. Een probieem als 
het tfouviet weergeven van het aantal beschikbare 
ren is met behuip van ter niet te 
in het serval de rmateerd 15 met 
toren, moet ne adres #2IGE de waarde KOi, en DP 
DT ae waarde «9 staan. Ïs dit niet het seval dan 
n saar werst sepnked worden vw 
kan worden wegseschreven. 
en JUP&ETAA na 
manser Kupnen ook ande 
zus Worden aansebracht, 























#2 
moeten deze waar 
de kh td taimen 
Bit gebeurt indien 
warden witsevaerds. 
waranderinaen in d 
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Disk — Cassette vice versa 

Voar het saven van Pprasramma's vanaf diskette naar 
tape bestaan verschiitende prosramma's, Ïk heb hiervan 
het maoiste srosraama uitgekozen: nametijk dat van 
Ronatd Boers, en dit op #5200 septaatst. Het werkt 
onder P-charme en Disk-roae Indien je eveneens de 
Josbox (AAR=ij seinstaiteerd hebt: dien je even op te 
passen dat ni de FCOS vit de Josbex wordt 








aanserpepen. Dit is te voorkomen door voor FCOS: het 





statement DISK op te nemen ts taadsebied heeft 
Ei P nu het sebied vanat #2308 en verder tot zijn 
beschikking, Eventueel zou je tot #2498 omlaas kunnen 
Laser saan is niet aan te raden omdat bij het intaden 
van een tits van diskette het buftersebied vanaf #2208 
ahderhevie is aän veranderingen. Het gebied vanaf 
EEE jijkt mij echter wet votdoende, 
Heb je sean schakeienft dan kun je het praearamma van 
Ranatd Boers nos wijzieen voor P-charme. Daarbij ie 
het anderstaande tabreitetje met vectoradressen van 





















beiang, 

JesboxsAiR-i Fecharme Disk 
BAYVEL EASE? &FAES HASTE 
BGTVE HASZT EADED #A530 
BPTVE #AIIE REDE ASF i 


Verander bij sen proaramma dat iaaer staat dan pasina 
E23 nooit de eerste reeet met REM in PROGRAM, want dan 
wordt het sebisd van #Z8RD tot &2S8FF op nui sezet ten 
behoeve van mventuveie Fecharme erocedures en Funkties: 
wardt n deet van je prosramma vernietisd, Het 
deze moaelijkheid moet altijd rekening worden se=hauden 
ais er met PROGRAM sewerkt wordt, 

Let er bij het saven van adressen naar diskette altijd 
ne dat je het eindadres aanseett met TOP + 1, af 
taatste brie erosraama + i, Bij tk backupsen naar 
anders het taatste laren aaan, Dus 
bijvoorbeestd #3086, en niet &IBFF. Dat het bid 
dis wet saat: komt doordat altijd sehete 
worden wesseschreven: dus tat en met het 
en seen Sedeatten daarvan. al is misschien 
ite opgezeven. 



































Hu dan het backup sebeuren van tape naar diskette. Na 
wat w i n ft ainsen js het mij aetukt 














in totaal súiis orasraama's aan het werken te 
krijsen. zijn de eroeramma's CASDIS, 
CASD Het taatst sewijzisde verste van het 










El Chart de Ma: ae van praaramma. (A.N,S-2) Dit 
oroaranma werkt nu onder de DIEK-ram. Van de nverise 
raama's zijn mij de auta bekend. Het 
srnsraama van Kiein LAtomix nr ik niet 























kunnen testen omdat ik het niet cht werkt 
aen van d eraeraama' s Dok Hiin 
voorkeur saat Uit naar het oroaramma CAS) DIE dat in 








basi sesrhreven is voor de f 
beain evaeanais hi 





charme, Het werkaebied 
de andere Prosramma’s. Do Basina 
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#25, Het prosramma staat in het hoee sehevsen en maakt 
gebruik van procedures en sen tunkie, Het is vanuit 
elke textpase te starten door CAS/DIS asvoist daor 
Crmturn in te Likken, Het orote vaordeei van dit 
eroaramma is dat aitteen voliedise tiles van de band 
worden sehaald. Dit is van betans ats er zi korte 
pauzes tussen de op de tape sesavade titles bevinden. 
Een kiein nadeel is dat, indien van de tepe tiles 
warden sehaatd Waarvan de eerste zeven karakters van 
de naam overeenkomen, de als eerste sessvede tite 
wordt averschreven. 








P-charme witbreidinaen. 

Zoals bekend is het mosriijk om op tameiijk senvoudige 
Wijze de p-charme uit te breiden met „xtra statements 
„nn funkties. 

De tabei met de statements moet attijd aan het begin 
van een pagina staan, en besinnen met FF ES CE: en 
worden atsesinten met 80, (hekadecimaie waarden) 
huge byte van de ekecutieadressen van de aan te roepen 
statements wordt opsehoasd met #89, voordat het in de 








tabel wardt septaatst. Om deze reden Kan een stuk 
assembier in het seheusen vanaf #5080 niet direkt 
warden sansernezpen, HEU+STI=RFF Indirekt zou wet 





kunnen Via een Juste in met iase seheusen, Cu de 
statements aan de P-charme bekend te makan moet hat 
adres HIFG zevuid Worden met de pasina waar de tabel 





staat. Heerdere tebetien met statements kumnen 
antijktijdis aan de petnarme besend Harden  Semsant, 
Daartoe wordt het werste byte van de up het 





eas inanumnmer Waarmee 
gaai nanummer van de 


EEEN met het 








tabei, De ao be 
nemen Label begint weer aat EFF, 

Do dezelfde manier at er een uikkreidingstanel met 
statements gemaakt kan were 15 het Fuat tk em 
tanet wet tunktieuitbreidingen te makan. tahei 








beaint met 





ndiad eveneens mer erchen 








maat, st warden het bezin van men 
pas una. 7 her pati nandmier van 
nagessiasen. in menen BEL kemen Ha staan 





met BU staan. Th 
assembier van 
natstaan. wort 


int 


ENTER) 
















rprater, cie wa mer 











Funkties waardt uitaetezen } 2 . : 7 
tunktieuitoreidingen Kad en 
srasramnma Ar Hesint mat epnanen 
=chter antetaan tea het an DEN 
maze Fumkrieustbre: inn 
rn sen programa. Haatei ijk 
attean gekeken naar f bve z En 
Eabei sn Niet due we re 
Inssen or het a - - Ei Eve eert 
HEF, zodat de vabet niek meer Fet keing Weiteike van 
wear amKeken Warsit naal taj 





Pat maas an GRE nrsearerd dent ters 1 





dE vu Ein ue 7, 





wend Pasveer vs aar 
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achter  BRANGLU … De initiatisatie van 

varzorat. bet, etten van dea vek toren 
gen „en zoekt tevens naar bei 
TC: zodat de statement uitbreidingen 





n aanseraesen: zonder dat eerst het 


hand moet worden Sevuid, 












Hi At „ 52 
k a) "kt 
dt EA = en 
n Ged Pa Od 
EL neatt startwaarden nadis dan die ui 
G D ou hetze t ” 

D ai à zijn 

samensesteld: naast ijk 





ammand” 5 
statements 








mm ard 











„aak in en warden 

E G heeft sen vr eve varsie 

Rn draait ai sinds Junì 1885. ASE-1,5 is 
onderbevis aan Kijzisinsen vanwese de 50 

iomskaart, is san dour Him Osterhoit 





verbeterde versi 








Deaendmen van BRAOD: die nu niet 
meer os P,4D stukionpt, 
De san te roepen statemants en commando's uit 
verscheidene boxen kunnen via net statement COR 








vitsrtezen. Ì T heb dit statement achter BRAK 
sepiaatst en in de tabet van de bij BRANGUART 
statements Doosenamen: maar het is mnk 
sen prcharme uitbreiding op te nemen. 
mnumver). Bis de 
dingen + 
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aTDm STATEMENTS ZXTENSION 





Commando’ st 


GRHOD TXMDD SHAPE SFLOT PLAY ENTER 


FIX FZERO SWITCH EXEC DROP GORP 
FLASH FLOW GINVERT CURSOR HERDER PSCREEN 
GSCREEN CON EDFF ELT CLM SP 
LI SEARCH 2 DURP SNOW NOSNOW 
BSE 

BRMOD 


BRHOD vervanst de 5547 in de hoosste srachics 
vesniutie., In GRID is het moseiijk normate tekst met 
tekeninsen te combineren 


TAMOD 
TROD schakelt  ORAOD weer uit. Er wardt 
terussekeerd naar een Doseschoond ciear B — scherm, 


SHAPE 
Syntax: SHAPE (adress) 

SHAPE tekent een opssseven fisuur oe het scherm € in 
de modes 5 t/m á 3 volaens pen 'aepackte' SHAPE tabeí 
op iokatie Cadres). De SHAPE is hierbij niet sebonden 
aan bepaaide horizontate of vertikate afmetinsen 

Het eerste byte van de SHAPE tabei seett de lenste van 
de tabel aan. Dit Phaudt direkt in dat een tabel 
maximaal 255 bytes tans mas warden, De voisende bytes 
geven informatie over de te plotten figuur, en wel ais 


vaiat: 
nedracht È ppdracht itÌ 
Pintparameter richtinae 
De richtings wordt ais vaolst bepaald: 1ä 
Lid Gi 


1 


De piotearameter kan de voisende waarden aannemen? 





AG : MOVE ì anzichtbaar 7 
Bi : SET mik 3 

18 2 INVERT mit — zwart à 
zit HAK Ü zwart } 





Er kamen dus Twee PINDEDOdrachten per byte B hits 1. 
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Voorbeeld: 


start . . - 
made 2 SET Bii/DIEL = #55 
BIiifBiit = #77 
GiIGG/BING = Háá 
8118/1188 = HEE 
2E20ED=4s 'H2ODLKEE44 7755 
is CLEAR 4 
28 Az. R. KZ5E 
35 B=û.R. #1392 
48 MOVE A,B 
50 SHAPE #2500 
68 GOTO 26 
Het scherm wordt nu vat getekend met kleine 
vierkantjes, 
SPLDT 
Syntax SPLOT 


bit? Chit? bit) Chit) hitr Chit? hit? (bit) 

bit) =ä Ai 
Deze routine maakt het plotten van zeifsekozen 
stippellijnen mosèiijk: bijvoarbeeid SPLOT D1S10181. 
De instructie SPLOT itiiiili brenat de piotroutine 





weer in zijn norsPronkelijke funktie terug. 
PLAY 
Syntax: PLAY inote)t, (nate)rasavenr (notet } 
note) = (frea) {lensth) f Crest) (tenstn) 
{frea) = AAB A. 04 
Ak 7 BÉ / . GR / 
A AB 4. 6 / 
E/B / GZ 
at / BY fau f£ 6% f 
At Z B'& f .. 4 G'& A 
P.‚5. E# = F‚, Bi = C enz. 
irmat) 
(lensth) ifESGf8 A is Z 2. f á. B. 





Wat PLAY kunnen de tonen van drie aktaven: inclusief 
de halve tonen, worden sepraduceerd. De benete van de 
toon kan 8 verschittende waarden aannemen. 


ENTER 

Syntax: ENTER (var) 
Enter is een input=statement vaar variabeten, 
vitstvitend bestaande vit sehele of sebroken setat ten 
met een door (var) aangegeven tenstebesrenzing. Er 
verschijnt sen vraagteken op het scherm. Uitsluitend 








ziiters: stachts Tt minteken „en 1 punt worden 
seacceoteerd en tevens oP hun Juiste piaatsing 
benaordesid,  Deieten is normaal maselijk en het 


vraagteken biijft gewoon staan, Hat het intypen van 
(var) karakters volet een automatische return. Een 
kartere ineut met (RETURW wordt ook seacceateerd. De 
instroom string barre varvoiìaens in ria 
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inputstrinsbuffer seplaatst. De instruktie KA=VAtS#100 
bijvoorbeeld, Piaatst het insetypte vervolgens in de 
variabele %A, 





FIX 
Syntax (var {var Zò 
{var Ìj = {8 
{var 2) = {8 
{var 1 + 2 fe f 3 
(var 5 = ftoatins-point variable 


FIX is een atrondinss routine vaor fioatins-eoint 
variabelen. Het aantal af te drukken cyters voor en na 
de komma wordt bepaald door {var Î) en {var 2). Indien 
de fioatins-pont variabete het opseseven aantat cyfers 
vaar de komma overschreidt: warden er vraastekans 
afgedrukt. 


FZERO 

FIERD zet atie ftoatins-point variabelen op 8. 
Voorwaarde is dat deze variaben vanaf #2090 opsestasen 
zijn, 


SWITCH 
Syntaxt SWITCH (textpasr), (var? 
(var) = A A BA an / Z 
Het statement Switch dient om een simpele executie 
oversthakeiina tussen twee textpases moselijk te 
maken, Wanneer Switch se-executeerd wordt: saat de 
interpreter eerst de volsende resel in de huidise 
textpase opzoeken. De variabete wordt nu sevuld met 
het reselnummer van de resei volgend op die waar het 
SHITCH-statement is sevonden. Hierna vindt 
ĳverschaketina plaats near het reseinummer in de 
ĳpgeseven textpase. Dit veselnummer wordt met de van 
te voren sevulde waarde van (var) bepaald. Wardt nu in 
het prosramma weer overgeschakeld met SWITCH naar de 
voriee textpaae, dan zal: indien de variabete 
ondertussen niet gewijzisd is, worden sespransen naar 
de regeì volgend op de reset met het SWITCH-statement 
Voorbeeld: 


18 REM PAGE#2S 18 REM PAGERZ 
29 P,“RCORN * 28 P.“aTOA * 

58 R=20 58 SWITCH #25, A 
48 SWITCH #30, A 48 END 

58 P. VELUR®" 

58 END 


EXECS 
Syntax EXECS (var) 
Wet behuie van EXECB is het moselijk om bijvoorbeeid 
di rekt-made commando's vanuit een prosramma te 
sebruiken. Ook kunnen bewerkingen vnuit een string als 
funktie worden aebruikt, 
Voorbeeld? 
19 DIM AC20), B28 
20 K=6 
38 SR="FP, PIT" 
ä® B: eh KA 
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58 EXECSA 
58 EXECSR 
70 FP, xy 
50 END 


DROP , 
Syntax? DROP (DAF/G) Livar} 

Het statement DROP bestaat uit drie verschiiiende 
Statements, naetijk wit DROPD, DROPF en DROPG. DROP 
dient om het bovenste eiement van de DO …… UNTIL: FOR 
v«« NEXT of GOSUB .…. RETURN stack te taten vervat ien. 
Het is mogelijk om sen setai achter het DROP-statement 
te specificeren, waardoor meer dan 1 etenent te 
gelijker ijd van de stack kan worden ‘gewipt! . 








COMP 





Syntax CORP (var 1, {var 2), (var 3} 
ivar) Af B/ us f 2 

Het benuio van COMP kunnen twee strinss, aanseduid met 
(var 1} an {var 2), met eikaar worden verseie en. De 
Sstrinss zijn van te voren insevoerd. Het resuttaat van 
de vergalijkins komt in (var 5) te staan. Heett (var 
5 de waarde B aansenomen, dan zen de strings aan 
2ikaar setijk, Indien de waarde selijk is aan 1. dan 
is de met (var 1) aanseseven strine arater, bij de 
waarde 2 de strina die met {var Zi is aanseseven, 














FLASH 
Syntant FLASH (var-ij, (var-2}, (var-3) 
{var-ij = B 4 1 fue 7 Sil 
ivar-2) = Lt Aven f EZ 
fvar-Si == Bf 1 fv f 16 


Met behute van FLASH kan men het CLEAR 0 scherm af 
een sedseite daarvan: taten knieperen. Het orosranma 


tal vervaisd worden na sen toetsaanstaa, vari) 
bepaalt de positie van de tinker bovenhoek van het 
viak: ‘var-2) het aantal posities naar rechts en 


{var-5) het aantai resels naar beneden 





ELO 
Syntax: FLOW ivars 
ivan) = Bf EF 
LON copieert een scherm dat beeint ap sasina (var? 
naar het ciaar 4 scherm. Daarbij lijkt het sisof san 


aantal balken aekanteld warden. en wordt sen zeer 
fraaie oversane tissen het huidise en het te vertonen 
scherm bereikt. 








GINVERT 
Syntaxs GINVERT (var=1}s (var=2: (var 
#S000 / ... f #S80B 
BA if. Zi 
=Ai ZA. f 1392 
Met behuie van GINVERT kan sen sedeette van het CLEAR 





4 scherm worden gainverteerd. Hierbij is (var-ij de 
linker boven positie van het te inver en viak, De 
rautine werkt en is beveitisd vaar inverteren 
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EURSOR 
Syntax? CURSOR Ox-var): (v-var) 

(g=var) = Bf 1 7 er 4 3Ì 

iy-varì = B / 1 / vre / 15 
Het dit statement kan de cursor op elke piaats van het 
ciear-@ scherm worden seposikioneerd. De eerste 
varianete ( altanumeriek > zeeft de kotom aan. De 
linker kotom wordt met @ aanseseven: en de uiterst 
rechtse kolom met Zi. De tweede variabste seeft aan op 
welke reset de cursor seclaatst zat worden. De eerste 
reset wordt bereikt met de waarde @, en de onderste 
vesel met de waarde 15. 





HEADER 
Syntax HEADER (var) 
(var) =D A 14/6 

Het betuie van HERDER wordt er voor sezorsd dat het 
scherm vanaf de opsegaven resei scrolt. Het aantal 
goesosven reseis blijft dus staan. In deze regeis kan 
de text wel worden sewijzisd door de cursor naar de 
betreffende rasoel te brensen. Het HEADER B wordt 
HERDER weer uvitaszet. In GRID heeft HEADER seen 
warkins. 


PSCREEN 
Syntax? PSCREEN (var) 
var) = 1 / Z/ vr f 15 
Het dit statement kunnen 15 schermen in het geheusen 


worden opgestasen. De schermen worden in de 
uppertextspace opsestasen. Het is een ers handis 
hulpmideaet bij het disassembleren van machinetaal, 
maar kan tevens in sen BASIC-erosramma sebruikt 
warden. 
GSCREEN 


Syntax: GSCREEN (var) 
Het GSCREEN wordt het met PSCREEN wesseschreven scherm 
weer Dpaeroepen. 





CON 

Het behyip van COW wordt de cursor, zowel in 
ziear © ais in GRMOD, aansezet. Het statement heeft 
dezeitde werkina als TEEI=#EO in clear OG, en THEI=KFF 
in GRHOD. 
LOFF 


Ket behuie van COFF wordt de cCUNSar, Zowat in 
mar B ais in BROD, viteezet, (FsEizD) 
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CLE 

TLC maakt het scherm vanat de resel waar Zich de 
cursor bevindt schoen. In GRAOD heeft CLC seen 
werking. 


ELK 

Het statement CLA vuit het sehevsen vanat #Z208 
tot aan #7G0D met #B en sprint naar G&ECZB2: hetseen 
een reset naar textpasina #29 tot sevola heeft. Het 
behutp van CLC kan een programma in het voornoemde 
gebied seheei worden weagevaaed: wventuzel als sevoleg 
van aonsegoriontde acties: en kan tevens worden 
sebruikt om het seheusen even op te schonen. De 
DISK-cataiaaus bitift behouden. Dok eventuete 
utitities vanat #7008 worden niet aanaetast 


SPA 
Syntax SPA fvar? 
{var = BA 1 f EA vn f 255 

BPA verschuift de cursor over het opseseven aantal 
posities: Waarbij besonnen wordt met telien vanaf de 
eerste positie op de voisende regel, SPA drukt in de 
praktijk een aantal spaties at. SPA G verplaatst de 
cursor naar de eerste cositie op de volsende regel. 


LIN 
Syntax LIN (vari 
(var? = Bf 1 / Rf van f 255 

Het statement LIN kan sebruikt worden omt het scherm te 
taten scroiten. Berekend vanat de valtsende resei wordt 
de cursor over het aanta opseseven vreeris omiaäs 
verplaatst. Beeidinformatie die zich na de cursor 
bevond saat hierbij niet vertonen. 


SEARCH 

Syntax? SEARCH "{istrina)” f/ (var) € var? } £ 
tiassenbier) } 
Doormideel van search kan het sehdusen warden 
afsezocht oe zen string, „en reeks hexadecimaie 
setalten of een stik assembler-zode, 

Vemrbeeldt SEARCH 4C 38 05 “ACORN ATOM" 
SEARCH LISREFFES: JNPRCSSE 


Syntaxi ffadres) (#var} „…… ÍStrins} .……. 
Ket behvip van deze vulroutine kan het seheusen: 
beainnend met (adres) np een eenvoudige manier sevuld 
warden met de sewenste hexadecimale waarden en 
strinss, De hexadecimaie waarden en strinas dienen 
sescheiden te worden door een spatie, De hexadecimale 
waarden moeten zonder '# warden insevoerd. Wit men 
het karakter * opnemen, dan moet dat dubbel danseseven 
warden cantorm de strinanatatie van de ATOM. 
Voorbeeld? S4058 “PRINT "tre 





DURP 
Het statement DURP arukt het scherm via en 
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evinter af. Het kan ook in een prosramma sebruikt 
worden om er voor te zoreen dat bepaatde informatie 
naar de printer wordt sestuurd, 


HOSNOW 

Dit statement zorat er voor dat het beeaid niet 
meer ‘sneeuwt! indien men tekeningen maakt. Dit saat 
natuurtijk wei ten Koste van de snelheid. Het 


statement NOSNOW uit GAGS-2,8 heeft voor de beweainsen 
van de sprites een beter effekt dan HOSNOW in 
combinatie met GAGS-2, 5 


SNOW 
SNDW heft de werkins van NOSWOW op 


ASE 
RSE linkt naar #C558, en kan aabruikt worden om 
de box voor te zetten 


TRBEL COMMANDO STARTADRES 


#RB2T GRROD #AEDE 
HARTE TXMOD REZ 
HRBZA ‘SHAPE #AB88 
ROG 1 SPLOT #ABOE 


#ABLE PLAY HRAZE 
AB4E ENTER ASAT 
#AB5S FIX #R7BE 


#A35A FZERO ART IE 
RDE SWITEH AEST7 
#RBES EXECS RER 


“4070 PIP #58 
A75 DROP 4ASFB 
#A07R COMP sa5s8 
#RGS 1 FLASH #R4ED 
“REE FLOW R4SB 


KAOBE GINVERT «A435 
«037 CURSOR HAABE 
#ADSF HERDER RSD 
“aaa? PSCREEN  #A5:55 
“HOES GSCREEN  #A:558 


#A0B3 CON #aE2B 
RBE COFF HAES 
#RAC4 CLE sAZDE 
KROES CLM HAZTE 
HROCE SPA #RZ230 
#ABDE LIN BEZAT 
KAODE SEARCH #A220 
“ROES * MAiDD 
SODES DURP #ALGZ 
#RAES SHOW “ADFF 
RGEF ROSNOM HAIR 
ABF 7 ASE #C5TE 
EINDE TABEL HABFD 


SPRINGT Naar #CSS5E 
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ATOM. COMMANES EXTENSION 


Commando’ si 


STEP RELOC GOFY DISAS TRON TROFF 





LVAR FVAR FAST SLOW LAB SINT 

IRG TIME TMOFF DT IME oFF NOKEY 
DEFKEY SETKEY PRCK APPEND DSIZE CHECK 
TS LBR Dv AGE 

STEF 


Syntax? STEP (startidsdispiar? 
STEP sinsie stept machine code vanaf adres (start). 
Er wordt een disassenbiy seseven van de instructie met 
„en jijst van de rasisters B» X Yr PS en SP 
daarachter. 
STEP wordt sestoet bij een BRK=H4D of aan RTl=t4D, 
Normaat te beeindisen met ESCAPE. 
Wordt £idiseiar? opseseven, dan wordt beven beschreven 
tistins cas sestart ais DO={disptar). Dit is handis 
bij saaie maar noodzaketijke bussen. 
Ar KX en Y kunnen seoreset Worden deakv. de variabeien 
Ar Ken Y, 
voorbeeid? Aeiil rde 

STEP&CL ZE 





à 





#22 
E 


RELOC 

Syntax? RELOC (start), tend): (aestination) 
RELOC reioceert sen stuk seheusen: en cast daarbij 
atie adressen tussen (start?) en (end) aan. Enise 
voorzichtigheid is hierbij wet seboden. (destination) 
aas nametiik niet tussen (start) en tendì  tiesen, 
aansezien dan het sedeeite tussen (destination) en 
{end} wordt overschreven voordat het sereiocaerd iS. 
Voorbereid RELOC #ACI7, SRECF, #7 100 


oer 

Syntax? COPY (start), tend): (destination? 
COPY kcopieert een stuk seheusen. Voor een compiate 
zopieerpedracht moet, net ats bij RELDC: (destinatian? 
niet tussen (start) en (end) opseseven Worden. 
Voorberid: COPY #A00G: AFFF, #4000 


DISAS 

Syntaxi DISKS (start) tendih 
DISAS disassembieert het opsessven stuk seheysan  @n 
geett tevens een HEK- en ASCII- dume, Een tabel is 
hiermee ook makkelijk uit 
te Pigizen, 
Wordt nà de kommá seen eindadres oeseseven, dan ai teen 
te stoopen met ESCAPE, Wordt L, tend} niet opgegeven 
dan wordt er maar 1 byte behandeid. 
Voorbeeld: DISAS #AG20, 





TROM 
SyntaK? TRONE#}tvarlhiivarZi...enstvar ni} 
Dit statement Wordt sebruikt om een BASIC prosramma te 
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‘tracen’, zodat bekeken kan worden weike resets 
seexecuteerd worden door de BRSIC interoreter. Nadat 
sen ese) is uitsevoerd wordt seprint 

TRACE AT LINE HR.xkkx en worden de waarden van de 
var iabeten voordat de resei werd geerxecuteerd 
afsedrukt. 

Het is noodzakelijk TRRCE uit te schakelen wanneer bet 
prosramma gestopt is, Dit kan met het commando TROFF. 
TRACE zaì wanneer er met ioors ais FOR... NEXT: DO 
……. UNTIL of met subroutines sewerkt wordt: niet de 
reselnummers van de RETURN: UNTIL en NEXT reseis 
weergeven, Dit is het sevols van het feit dat de BRSIC 


interpreter deze resais niet in ZEROPRGE saved 
wanneer betreffende reseis worden vitsevoerd,. 
Formaten: 

TRON t print na elke resei alle variabeten 
decimaal, 

TRON& ì print na etke reseì alie variabelen 


hekadec i maat, 
TRONABCXYZ 3 erint na seìke resel de variabeten 
A»B:C:X,Y en Z 
decimaal. 
TRONKABCÁYZ 2 print na eike resel de variabeten 
EBC, Y en 2 
° hexadecimaal. 


TROFF 
TROFF zet TRON uit. TRON en TROFF kunnen zowel 
binnen ais buiten een BASIC-erosramma sebruikt worden. 


LVAR 
Syntax: LVRACHM varlhiivarZd......tvar ni? 

LVAR heeft tot functie de bij LVAR sesperiticeerde 

variabelen oe het scherm te printen: deêcimaat af 

hekaderimaai. Zie hiervoor pok TRON. 

Formaten: 

LVAR it print alie variabelen decimaat. 

LVAR& erint alie variabeten hexaderimaat, 

LVARABCAYZ 5 print de variabeien K:B:C1K,Y en 2 
dezimaai. 

LVARKABCAYZ t print de variabelen AB C:X.Y en Z 
hekadec maai, 





FVaR 
Print de floating point-variabeien. Voorwaarde is 
wet dat deze variabelen vanaf 2885 ziin noses aaan 


FasT 

FAST versnelt de uitvoer naar het scherm. Het is 
aan te raden FAST te sebruiken in combinatie met de 
sass-mnde, 


SLOW 


LAB 





abetische voisnrde aan weike 
IC-erasvramnma ais ianst ambruikt 


LAB seett 
variabelen in 
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zijn: en tevens in weik resel- nummer het betreftende 
tabet besint. Tot sint warden atie mosetijke jabeis 
nosmaals afsedrukt, waarbij de sebruikte labels worden 
seinverteerd.. 


SINT . 

SINT (set ìinterruetj maakt het mosriijk de 
gitvoer met een druk op de spatiebalk te onderbreken. 
Een herhaaide druk op de spatiebalk heft deze situatie 
wear OP. 


ERR 

Syntaxi IRG (start), (var? 
IRS wijst een Stuk machinetaal aan met startadres 
(start): en ekecuteert het stuk machinetaal met 
interupts met de waarde (var). (var? moet een waarde 
kteiner dan 256 hebben. In principe moet de 
assembierroutine met RTS worden atsestoten. TIME 
biijft doorlopen. 
Voorbeeld? 
P=#2889: + DAKBROZIEDRBAISTARBOOZIRTSE (RETURN) 3 
de IRG-routine: en vervoisenst IRQ#2805. 106 
RETURI: 


TIE 

Syntax? TIHE 
“ (number? inunbert 3 (number? (number? t (number? (number) * 
Geeft een tijd op intervet in de rechterbovenhoek van 
het scherm. PRINT ST drukt de waarde van TIME af. 
Voorbeel TIME“12:00: 00" 











THGFF 
TEDOFF zet de kiok op interruet basis af. 








DTIKE 

Indien TIME seinitiaiiseerd is: de 
klak wel of niet op het erm verschijnen 
afhankeiijk van het wei of niet zichtbaar zijn van de 





kiok np het scherm. Indien de kiok nief zichtbaar is 
biijft de kink wei daorìopen. 


arr 
Zet de IRG=-routine af, taat echter de klok op 
interrupt-basis doortopen. 


ROKEY N 
NOKEY maakt, ten behoeve van DEFKEY: ween tabel 
AAN: of maakt een bestaande tabei lees, 


DEFKEY 

Syntaxt DEFKEY CH" (var) "e=" definition? “0 } 
DEFKEY maakt het moseiijk om aan Í=ike toets een 
tunctie te geven. Ranse raden wordt ai teen 
seinverteerde karakters te gebruiken, In piaats van 
CH" vari“ is het pok toesestaan de derimale waarde van 


de ASCII-code van (var) te sebruiken 
Voorbeel NDKEYIDEFKEN CHY rt=*DiD3 RUN 
ot DEFKEN itá="OLDE RUN" 
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SETKEY 

SETKEN herstelt de ieesvectoren van DEFKEY na een 
(BREAK) zodat men weer over de reeds sedetinieerde 
tuncties kan beschikken. 





PACK 
PACK verwijdert afte niet noodzakelijke spaties 
uit sen BASIC- erosramma. 


APPEND 

Syntaxt APPEND (name? 
Dit amanda aeett de masai ijkheid omt twee 
BASIC-prosramma's aan elkaar te koepelen. Eerst het 
eerste prosramma intaden. Nadat de TOP-painter soed 
gezet is: kan met behutp van APPEND het tweede 


prasvamma direct achter het eerste worden geiaden 


DSIZE 

Wet benuie van DSIZE is het moseiijk na te gaan 
ot het zin heeft om sen schijf te romeacteren. DSIZE 
seett namelijk het totaai aantal vrije sectoren op een 
schijf. Komt dit aantai niet overzen met het aantai 
vrije sectoren aan het eind van de schijf: dan is het 
nuttia om de betreffende schijf te compacteren, 








EHETK 

Dit commando voert sen soort Crelie Redundancy 
Cheek LURC vit nadat de gevraasde adressen zijn 
ĳpaeseven, Het kan sebruikt warden voor de contente 
van insetaden Programma's, maar ook als verify van een 
Prosramaa dat net sesaved is. Laadt dan het prosranma 
even op #5200 en voer ne het origineei en de copy de 
CHECK uit, Ais beiden nversenkamen dan staat het amed 
op de band. Tevens kan het gebruikt warden voor de 























snntrale van ROM wen EPROM. Het nverzicht hieronder 
seeft de uitkomsten voor verschijtende adressebieden 
en voor een aantat EPROM's in kin aorsprankeiijke 
staat, 
“CODE 
#DOER- DFF 
“FOD EFEEF 
WORDPA 
15 

15 saaft informatie over het  BASIC-prasramma in 


de huidige tekst-paaa, Atfssdrokt worden de Lekst-cage 
en de TOP van het proeramma: Het aantat bytes wat het 
ermarsama n beslag neemt, het nummer van de iaarsra 
eat: en het aantat karakters dat de ianaste regai 
ana 
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El 


LE 

Het commando LBR library) geeft van alte in het 
gaheusen aanT wezige BASIC-erosramma's, het adres van 
de tekstpasina: de (TOP) = is en drukt tevens de 
„erste prosrammaresel af. 


DSV 
O8v 
System Vert 


de vertoradressen van de Doeratina 









EE 
ACE linkt naar #U558, doet dus feite k niets, 
en kan schakelsysteen zebruikt worden omt de 
ACE-bax var zetten. 
START 
$AEDA 
HAEIE 





+RAFS 
RIBS 
zaSTá 
FRITS 
EASE2 
HATE 
#A7E7 
] $a7i5 
TINE #REES 
THOFF HRECG 
DTINE HEEEL 
AEDá 
RIIS 
#ASTI 
#aIDá 
HABE 






&RGES 
saEB 





APPEND 
DSIZE 
CHECK 





EABCE LER 
EAGLE OSV 
BAAS ADE 
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tk INFOMASTER MODIFICATIE ste 


ek Waarom modificeren? kk 


Velen onder ons hebben waarschijntijk een database in 
bezit c.a.sebruik. Twee bekende exemplaren zijn DBSDUS en 
INFOMASTER, Beide erogramma' s hebben zo hun 
eigenaardigheden, Oorspronkelijk sebruikte ik INFOMASTER: 
auteur A,Marchail zie A.N. 3,2. Dit Pprosramma aaf bij het 
zoeken in het bestand alieen de nummers aan van de records 
die het sezorhte onderwerp bevatten. Bovendien moest de 
zoekstrins precies selijk zijn aan een fieldstrine 
teneinde een match te krijsen. Dit attes was uiteraard 
niet zo erettig, Een voordeet is Wei dat INFOMASTER 
voiledie in BASIC is geschreven, zodat je attijd de 
beschikkins hebt over de source-tekst die vrij snei te 
doorgronden en wijzieen is, 

Bok bij DB3DOS, auteur Wilt Verhoeven zie AN. Ìs dat 
ik daarna „ens heb seprobeerd waren er enkeie 
eigenaardisheden. Om er enkele te noemen: 

Thet geheusensebruik is niet efficient, Als sen strina in 
„en bestand meerdere maten voorkomt, wordt deze iedere 
keer opnieuw opoesiaaen, Een record bestaat attijd uit 18 
velden, onk als U er siechts á& definieert bijv. 
NUMMER, H/S, CATEGORIE, BETREFT, In het genhevaen w n dan 
op de piaats van het record achtersenvaisens de & daar u 
ingevoerde strinss sepiaatst, sevoisd daar 6 maat KOUD. 
=het zoeken naar een bepaatd Onderwerp kan ze 
seconepliceerd zijn. Ais U namelijk de vorige r 
bekijkt dan ziet u dat het item BETREFT ais iaatst 
gedetineerd is. De bedoeiins hiervan was om zen tekst te 




















kunnen intikken die daoriiee over meerdere 
beeidschermreseis Cik kan niet altijd sen artikei uit ans 
ctybbtad in 23 letters beschrijven j.fis v beeid dient 





ATOMIX 22, waarin een opsomming voorkomt van prosramnma's 
van Andre de Bruin. H field BETREFT begint ais voigtt 
Uittes ADB PROM'S RUBIK GHS MUSICPAPER enz. Hu wit ik op 
„en geaeven mament de beschrijwvina wan erosramma 
HISTOGRAM vinden ‘kk met het 
definieren.  Franig oe Welke vrezei van “kaart” 
bevindt zi het woord HISTOBRAM? Voigens mijn pasinsen 
1 je dan en vanr een aite regeis vanaf nummer á& aaan 
proberen totdat je uiteindelijk de matih hebt. Cidesat att 
niet kwalijk ais ik de beschrijvins van niet soad 
heb begrepen en er t aen Simoeter Date vaar dit 
ernbieem is, } 

‘heb niet de beschikkina over de saurre van DE3DOS 
zodat eventuele aaneassinsen (als deze at mosetijk zijn 3 
weer vert disas-Werk zouden gaan betekenen. 

-Een punt in het vaardeel van DBED0S ts de 
tultscreen-editar. 


























Na het bovenstaand» aan den (ijve/toetsenbord te hebben 
ondervonden C in DESDOS heb ik de inhoudsopgave + 
artikelbeschrijvinsen van alte ATOM Len insevaerd) 


besloot ik terus te keren naar INFDMASTER.IK ben van 
menins dat de ATOM senaeg moet hebben aan een hait woord 
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en niet aan het sebeutens 

FOR I=4 TO IGDEFINE MRTCH REGELCIJFIE MATCH THEN HOERA 
Om de eisenaardisheden van INFOMASTER wat te wijziaen 
besioot ik er een tijdie aan te saan sleutelen totdat het 
programma soepeler zou werken. 


Ter itiustratie van het bovenstaande heb ik dit bestand 
BTGRIX in INFOMASTER Caval:1) en DBSDOS Cauvaitbì aan de 
diss-beheerder Matthijs gegeven 





hikt Wat is er SÈWijJzigd? dk 





Er bestaan nu twee versies van INFOMASTER 
—INFDHBE voor machines met de realtìime-clock BIG BENNY met 
de bijbehorende cmd’ s. 

—INEFDHE vaar machines zonder bavensengemde voorziening. 

Veranderingen tei.v INFOMASTER zoals beschreven in A} 





=inzetijkheid fot iabelmode daor extra LF's tijdens 
orinten. Zie Aal, 5.5. 

=Het is moseiijk te zoeken naar een trefwoord in een 
Field mby een zoekstrind die siechte sedeeitetijk in 
het …tieid voorkomt,HISTOGRAM is nu te vinden met 


BT,STO, 105 etc. 

wen bepaald woord Ssezacht wordt,dan zuiien na het 
ken atte records getoond worden die de aevraaade 
bevatten.ûe het beeidscherm verschijnt de 
Y_ MODE. 

aanweziaheid van Bia Benny wordt de datum 
inseavoerd C INFOMBB 3, 

gemak Warden aite fiies nu opgestaaen met 




















=in het E dent is de net ie dis, tains 
gosenomen. Aileen de bestanden met quatitier 1 worden 
aetoond. 

=De asekozen optie wordt ingeiezen met KEY K zodat 


(RETURN) overbodig wordt. 

-Bij het tonen van de records en het erinten Kan dit 
sebeuren onderbroken warden daor op (RETURN) te 
drykken. 

Vaar INFOMA+ seidt nu dat niet eike ke na het tonen 
van het hontdment om de datum sevräaasd wordt. 














Wat is er nodis? sim 


Bij mij draait INFOKBR onder BRANGUJART zodat ik kan 
beschikken over de md’ st 

-CON rsor aan. 

=COFE cursor vitsDeze twee comd's zijn niet essentieel: ze 
verbeteren ai teen de besidscherm layout. 

-CIJRSOR K,Y piaatst cursor oe positie xy 

-CLS uit GAGS,ts Ì byte korter dan P.$iZ:maa vervangen 
worden door P.$i2 

FAST dit cmd schakelt de sneile besidschermrroutine 
in-zadat het tonen van de informatie nas sneiler 

3 hiedt,WNiet essentieel. 

—INKEY Uit de ECHARME. Dit 























d is essentieel nmdat alte 
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toetsenbord informatie wordt aseiezen mbv. INKEY. De 


reden hiervoor is dat het nu moselijk is Deal 
fieldstrinss in te voeren met meer dan 64 karakters, 
-INSTR uit de PCHARME.Dit cmd is essentieel ivm zoeken 


naar informatie.Verwijder dan ook nooit de reset net 
PROGRAM amdat dan deze PCHARHE- functie niet 
seinitiaiiseerd wordt! 


De conclusie vit deze Desommins luidt dat het moseiijk 
is am INFORR+ te gebruiken op een machines zonder SOS, met 
als utility-box de PCHARME. Wei dient U over het commando 
CURSOR X,Y te beschikken omdat anders de menu=tar-aut 
niet fraai wordt,âis u niet kunt beschikken over dit 
zammanda dan bestaat de moseiijkheid om de beeidscherm 
ieyaut zodanis te wijzigen dat mbv P,&IE"KEUZE" pet 
vraaateken in de Linkerbovenhoek van het beeld 
verschijnt, 


bek Extra informatie sk 
Omdat er weinig vrij seheusen achter het oriaineie 


prasramma Wassheb ik de beeidschermen behorend bij het 
afde PEA. prink-ment satsemaakt met het prasramma 





iNFOser en samen met twee huiprautines oosesiasen van 
HEIDE tat HEB4F, Uiteraard Kan iedereen dit makkeiidk 
wijzigen daor de vante LINK/COPY adressen in 







INFOMASTER te veranderen, Door deze nperatie kan 
aantal reseis in MASTER vervaiien en vervansen wo 
daar bijv, COPY R25A0, 82640, KE0DG. 








De imputetring S heb ik gedefineerd over het gebied van 

de diskrdirsctory S2800-20FF, Voor zover mij bekend 
levert dit seen erobleten op,Een andere waarde van de 
variabeie 5 ievert zen ander gebied op. 











Het aebied H2L0E-H24FF wordt sebruikt om de voisnuamers 
van de gezochte records ap te slaan om deze na afiaap van 
het zoekeroces te kunnen Lanen. 








Bocht iemand niet beschikken over deze seneu 
dan is aangeassins in INFOMASTER simpei te doen met de 
PCHARHE- editor. kunt misschien de seheusengebieden 
plaatsen van #7500-47FFF waarbij U ersvia de gointer 
RRE, voor zorat dat het databestand niet Dver STTXX komt. 








Kk Printer sk 


Gebruikers van zen printer met 'underi ine’ -moseiìikheid 
kunnen de reseis 350545 ais volgt wijzigen? 
EEIC=b8-L, NNCAH1J/ZI00S, NIIFU?SP, 5252754531 

ss-10, undertins aan 

ZE2P,BNNCA+IJFIFGIIP, 5232784580 s9-1E: underline vit 

ZIEIFQ?7IC=E4 GOS. n3P, “PRG?! 

ZIEIFQ?E=DIG. 548 

Z42P,T" 

345 onsewijziad 














“dok Conversie DBIDOS-? INFOMA+r 
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Tenstotte iets voor DBIDOS-sebryikers die met het 
semoditiceserde INFOMASTER-orosramma willen expertaenteren 
{ werken. Fet zen Kimin bestie huisviijt en de prasramma’s 
INFOM+d & CONWERT kunt uv aop de volsende wijze men 
DEEDOS-bestand omzetten naar een INFOMASTER bestand? 











Bi run DBEDOS en vaes aan het te converteren bestand 
ais laatste record:ie itemi STOPSTOP toe,De andere 
tieids zijn niet van beiang. 

it taadt het bestand 

Et vun CONVERT (zie REMARKS 2 

run INFOMASTER,kies aptie 1 en detinieer de 
tietds.De fieids mossen viteraard in voisarde niet 


verschilien van de DBIDOS-fi tes 
maak het hulsprosramme INFOMAd als volet: 
aiverwijder vesais 0-00 ivm RAM-aebrek 
biwijzia 5 rege) 7 in #£FDS hd 
#IFSD: afhankelijk van UN machine 
mivoes toe regel & FIN" daor u sekozen naam 
bij CONVERT 


dinieuwe vege SD4 





âi 

















p: 
E „en warht af 
start INFOMBR/ INFOMA+ 
ider indien nodis teee records aan het beain en 
= 





ke Geheuaengesbruik/Atom configuratie * 








eropagebyte Wordt gebruikt ais flaesmas sewijzied 
warden. 

HEOED-HEDFF inoutstrins S,mae sewijzied worden. 

EEEGD-HZAFE ppstas recurcnummwers die sezochte informatie 
bevatten.sag dewijzied worden. 

FESOD-HISGF beeldschermen vaar menu's en huiproytines. 

#LESD-HEBKK Kladbiok voor INFORA+ 

EEDE XL bestand: {XXX (= HTFFE, 

#EDIT-HEIFF beeidscherm 

HOZED-HOFFK INFOMA+/ INFOMEB 











INFDMA+/INFONBB zijn ontworpen om te draaien op een ATOM 
voorzien van AT met RA van 
#E2OD-H2TFE, Gebruikers OS dienen de routine 
die de diskcatatos taant te wijrisen. Zie het 
ersaramma INFOser. 

Het is moeetid INFOMAF/INFOKBE te taten werken op een 
minimate ATO „ de eindsebruiker dient dan wei de 
adressen #2008-K2540 te wijzigen naar adressen zo 








dicht mmseiijk onder de top van het lage vrije RAP 
CEEBFF , WIEEF, HIFEFS. Het orasranma INFOser moet 
serund warden om de informatie  selesen in 


TSOG-HZSáF naar Peen ander adres te brensen. 
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Prommetis ge= 2 of miet? 











Naar aanleiding van het feit dat er steeds meer mensen zijn die steeds grotere EPROM's 
(laten) programmeren hierbij een artikeltje over het wissen van EPROM's, het 
programmeren van de EPROM, en het stickertje. 

HET STICKERTIE??? Ja, een wezenlijk onderdeel van de EPROM, want de EPROM 
(het venstertje) dient afgesloten te zijn van het licht van buiten. Waarom? Diegenen die 
op de hoogte zijn met het wissen en prgrammeren van EPROM's zullen ook wel weten 
dat het ongeveer 20 jaar zal duren eer de EPROM daadwerkelijk helemaal leeg is, dus 
dat mag niet zo'n probleem zijn (wie zegt daar dat hij over 20 jaar nog een ATOM 
heeft?). Het probleem zit hem meer in het “omvailen” van bitjes in de EPROM. Dat 
omvallen gebeurd slechts tijdelijk, en over het algemeen door invloeden (licht) van 
buitenaf. Het bitje mag voorgesteld worden als een soort cel binnen de chip; deze cel 
mag weer vergeleken worden met een zeer goed geisoleerde condensator. Wel, omdat 
deze condensator in principe in contact staat met de buitenwereld door het glaasje kun je 
door het schijnen met een lichtbron op datzelfde glaasje één van de cellen “tijdenlijk” 
ontladen, wat impliceert dat het bitje omvalt, en dus van "O" naar "1" gaat . Dat 
omvallen gebeurt overigens niet zomaar, maar door geen plakkertje op de EPROM te 
doen loop fa het risico dat er wat vreemde verschijnselen uit de EPROM komen. Bij een 
4kB EPROM zal dit probleem nog niet zo hard spelen, maar met een chip met grotere 
integratiedichtheid kan het probleem wel gaan spelen; er gaan zelfs geruchten dat de 
EPROM langzamer wordt in bedrijf door het weglaten van her stickertje. (Bij de 
27128 werd bijvoorbeeld zonder stickertje geleverd, wat dus niet zo'n beste zaak is, 
Shame on you EPROMbakker!) 

Overigens is dat stickertje ook heel belangrijk bij het wissen van een EPROM. (hé?) 
JA! Dat stickertje is zelfs zeer belangrijk bij het wissen want indien er een slecht (niet 
geschikt) stickertje word gebruikt, en het word voor het wissen van de EPROM 
getrokken blijft er vaak een lijmrest over op het glaasje, wat ervoor zorgt dat op de chip 
een schaduw onstaat onder de plaats waar zo'n lijmrest zit. Als de EPROM dan uit de 
wisser genomen word, en we doen er een blankcheck mee lijkt de EPROM netjes leeg 
te zijn, maar wat deze testmogelijkheid van de programmer niet verteld is dat die 
EPROM niet goed gewist is. 

Nu zult U zich hoogstwaarschijnlijk afvragen wat het probleem is, want de EPROM is 
toch te programmeren, en daarna uit te lezen? Dat klopt, echter wat U in eerste instantie 
niet zult merken is dat de cellen niet goed geladen zullen zijn, en dat de bitjes dus zeer 
snel om kunnen vallen, verder word de EPROM zeker trager! Bijvoorbeeld: het 
probleem van de warme drive, waarbij een EPROM op een bepaald moment op 
bedrijfstermperatuur komt en niet meer op de juiste manier blijkt te werken. Het kan 
inderdaad dat de timing te krap is voor die bepaalde EPROM, maar het is ook heel goed 


LOG VARIABELEN NICO VAN ROOYEN 
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mogelijk dat het ding voor het programmeren gewist is met een vuil glaasje!!! Lastig 
dus! Het kan dus al voorkomen met een simpele 2532, dus laat staan met een 27256. 
Nu is niet iedereen in staat om aan de juiste stickertjes te komen, en is ook niet iedereen 
van plan om daar een hoog bedrag voor die dingen te betalen. Groot gelijk; want als je 
een “verkeerd” stickertje op de EPROM hebt gehad haal je dat er simpelweg af, pakt 
een fles spiritus, alcohol of zelfs wasbenzine, en maakt met behulp van eert stukje van 
moeders stofdoek het glaasje grondig schoon. Klaar is mr.X! 

Waarom dit verhaal ? Bij een 2532 heb je-toch nooit van dat soort problemen? Nou zeg 
nooit nooit, het kan wel eens voorkomen, maar het zal bijna nooit voorkomen, echter, 
we gaan binnen de club gebruik maken van EPROM's met steeds grotere 
integratiedichtheid, en dus steeds gevoeliger voor dit soort storingen…. (27128 op de 
Z80-CP/M kaart, en eventueel grotere EPROMS op zelf ontwikkelde kaarten) 

Daarom wil ik bij deze een advies geven aan dié mensen die EPROMS kunnen 
programmeren, en eventueel ook voor andere clubleden programmeren: 

Maak voor het wissen altijd even het glaasje schoon van de EPROM, en plak er vóór 
het programmeren even een stickertje op. Het is een kleine moeite, maar kan voor de 
programmeur, of het andere clublid een hoop narigheid besparen, want als een bepaalde 
schakeling na verloop van tijd niet blijkt te werken zal men niet als eerste de EPROM 
verdenken indien die in direct mode of in het commande HEX of XDUMP gewoon uit 
te lezen is, en zal in de schakeling of bij de connector(s) van die schakeling gaan 
zoeken. 


Yvo Tuk 
Regio Rotterdam 


Logische variabelen 


Toen ik laatst een programma van een andere computer overschre 
onze Atom kwam ík tot een pijnlijke verrassing toen ik 1 








variabelen nodig had. 

Probeer het volgende maar eens: 

A=1 

B= 

C=(A=B) 

C is dan 1, 

C=(A<>B) 

C is dan 0. 

Dit staat beschreven in Atomic theory and practice blz 31. 
Probeer nu het volgende eens: 

A=1000 

B=1000 

C=(A=B) 

€ is dan 1?,.. mist C=769 11! 

Wat is namelijk het geval? Bij logische variabelen wordt maar 
van de variabelen gemaskeerd. Dit 1s een eigenschap 
slordigheidje) van onze Atom. 

Logische varlabelen gaan dus alleen goed als de waardes 
variabelen niet boven de 255 (#FF) komen, 

Constructies als A=((RND31000000)=999999) voor een kans van 1 
1000000 zijn dus niet mogelijk. 


Nico van Rootjen 
Regio Zeeland 


ef voor 
ogische 


1 byte 
{c.g. 


van de 


op de 
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R39,R40 en R41 


Heeft U zich wel eens afgevraagd waar de weerstanden R39,R40 en R41 
uit het Atomschema voor dienen? 

Ik ben daar pas achter gekomen toen ik mijn Atom In een euro-rack heb 
gebouwd. Htierblj heb ik namelijk de VIA in eerste instantie niet 
ingebouwd. Dit had tot gevolg dat mijn nieuwe systeem niet werkte, 

Het systeem werkte pas toen de uitdecodering van de PIA niet alleen op 
#B000 zat maar ook op #B800. 

Na veel puzzelen en zoeken kwamen we er tenslotte met een logic 
analyser achter dat de Atom vastliep op #FF1O-#FFI3. Dit Is een test 
in de printer routine of de printer aan staat. (Zie blz.73 tin 
Atom-Ware deel 3). 

Hoe is het mogelijk dat de Atom daar terecht komt als er geen printer 
en VIA aanwezig zijn? Hiervoor moeten we naar het begin van de printer 
routine kijken: 


FEFB PHA zet de te printen ASCII code op de stack. 
FEFC CMP @#02 kijk of het control 2 is 

FEFE BEQ #FF27 indien zo ga printer inschakelen. 
FFOO CMP @#03 kijk of het control 3 1s 

FF02 BEQ #FF38 indien zo ga printer uitschakelen. 
FFO4 CMP #FE auto linefeed? 

FFO6 BEQ #FF36 indien zo einde routine 

FFO8 LDA #B80C laadt het control register. 

FFOB AND @#0E kijk of de printer aanstaat. 

FFÜD BEQ #FF36 Indien af einde routine. 

FFOF PLA haal ASCII van de stack. 

FF10 BIT #B801 printer klaar voor nieuwe waarde? 
FF13 BMI #FF1O nog niet klaar probeer het nog eens. 


Wat 1s nu het geval? De Atom komt In de printer routine de test op 
#FFOB tegen om te zien of de printer aan staat. Als er nu een VIA ìn 
het systeem zit zal het cotrol register uitgelezen worden. Afhankelijk 
van of de printer aanstaat of niet zal de Atom verder gaan met de 
printer routine of niet. Wat gebeurd er nu met een standaard Atom als 
er geen VIA in zit? Dan zal de Atom door de drie weerstanden bij het 
lezen kF1 zien, waardoor er met de test op #FFO8 tot #FFOD uit de 
printer routine gesprongen zal worden. 

Als deze weerstanden er niet in zitten zal de test voldoen en gaat de 
Atom verder met de printer routine. Deze weerstanden zijn dus 
onmisbaar voor het werken van de Atom, 

Als de PIA niet geheel uitgedecodeerd zit op #B000 zal er op de plaats 
waar eigenlijk het control register van de VIA zou moeten zitten het 
eerste register van de PIA gelezen worden. Dit is #00 , dus de test op 
#FFO8 is waar en er zal dus gesprongen worden, 

Bij het inbouwen van de Atom in het rack zal er dus rekening gehouden 
moeten worden met deze test. Ik hoop mensen die van plan zijn hun 
systeem in een rack te bouwen van dienst te zijn met deze wetenschap. 


Afz: Nico van Rooijen 
Regio Zeeland 
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Problemen met de Z80-CP/M kaart 


Na de levering van de eerste printen is duidelijk geworden dat niet iedereen op 
eenzelfde makkelijke manier een Z80-CP/M kaart in elkaar kan zetten, verder is 
gebleken dat er wat problemen zijn met bijvoorbeeld het ATOM-DOS voor wat betreft 
schrijf en zelfs leesfouten. In onderstaand artikel wat tips voor het bouwen en eventueel 
testen van de Z80-CP/M kaart. 

Een eerste tip luidt: “Geef nooit gelijk de moed op voor wat betreft het bouwen en 
testen; hieronder staat beschreven wat er dient te gebeuren alvorens met een rood hoofd 
aan de telefoon te gaan hangen en naar het regionale of zelfs landelijke bestuur te bellen 
met de mededeling dat de kaart miet in orde is”. 

Indien de kaart niets doet na het drukken op de RESET-knop dient U eerst alle 
verbindingen te controleren; een drive is een goed criterium voor het testen van de 
kaart, maar de drive dient wel goed aangesloten te zijn (voor instellingen op de drive 
zelf verwijs ik naar de handleiding van de betreffende drive). Blijkt nu dat de kaart echt 
niets doet dan dient U de kaart door te meten door middel van een Q-meter, Dit dient 
niet alleen te gebeuren voor wat beteft de verbindingen die er horen te zijn, maar ook 
voor verbindingen die te veel zijn (kortsluitingen dus). 

Een in de praktijk kritiek gebleken plaats op de print is onder de RAMmetjes... 
Overigens is het onverstandig om altijd maar direct naar een scoop te grijpen; de 
untverseelmeter werkt in dit geval ook, en het werkt heel wat makkelijker. 

Wanneer blijkt dat alle verbindingen kloppend zijn en de kaart doet nog steeds niets 
kunt U eens kijken of het kloksignaal met de juiste amplitude >4.7 Volt aanwezig is op 
de kaart (Ook dit kan met een universeelmeter). Indien de klok niet aanwezig is dient U 
te kijken of het hele oscillator-circuit wel werkt (daar is dus weer wel een scoop voor 
nodig). 

Als de kaart nu nog niet werkt en de aansluitingen van de 1793 of 8877 zitten goed (de 
eerste heeft wel 12 Volt nodig op pin 40 en de tweede niet) dan is er waarschijnlijk 
sprake van een defect IC; het is verstandig om contact met iemand anders in de regio op 
te nemen en IC's uit te wisselen (dat kan geen kwaad, een IC wordt niet zomaar 
opgeblazen, maar kan wel bij aankoop reeds defect zijn). 

Wat als de kaart wel werkt (de drive gaat draaien, doet eventueel zelfs een stapje maar 
stopt dan en doet voor de rest niets)? 

Het probleem is nu waarschijnlijk verschoven van de Z80-kaart naar de aansluiting met 
de ATOM of de door U verkeerd gepatchde software. Ga allereerst na of de software 
wel is gepatched voor de juiste VIA op de juiste plaats, en bekijk daarna nog eens goed 
alle aansluitingen die gemaakt dienen te worden om de zaak goed aan de praat te krijgen 
(nogmaals, de Z80-kaart werkt wel als bovenstaande situatie optreedt, maar de kaart 
wacht in dit geval op de terminal). 
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De problemen met de ATOM-DOS: 

Dat is even wat anders, de exacte oorzaak van dit probleem is nog niet achterhaald, 
maar wat wel eens goed wil helpen is om alle IC's met van die blauwe 100 nF 
ontkoppelcondensatoren (SIEMENS SIBATIT) te ontkoppelen op de 
voedingsspanning. 

Bij mij zelf is ook een probleem gekomen met het aanzetten van het systeem, het 
opstarten van de Z80-kaart gaf allelei vreemde symbolen, en het scherm werd een grote 
puinhoop. Om een lang verhaal kort te maken: de oorzaak van deze allende was bij mij 
een zogenaamd anti-ruis printje. In koude toestand mag zo'n ding ook een anti Z80 
printje genoemd worden…… Remedie: verander de waarden van de timingbepalende R 
en C zodanig dat de Z80-kaart vanaf het prille begin gewoon op kan starten. 

Nogmaals grijp niet te snel naar die scoop; U maakt het Uzelf alleen maar moeilijker, 
vaak zijn de problemen echt goed op te lossen met een Q-meter. Over het algerneen 
hoeft U na het lezen van deze tips en op de juiste manier uitvoeren van de tips niet meer 
met een rood hoofd aan de telefoon te gaan hangen. 
Alle verdere problemen zijn over het algemeen 
software, en drives die de zaak niet bij kunnen houden. 

Een laatste tip van Charl de Moor: Indien blijkt dat er op de print één of meerdere 
kortsluitingen ziten kunt U een accu pakken (stevige NiCd-batterij), en op de spoortjes 
waar de sluiting zit de plus en de min zetten. Op deze manier brandt U op een nette 
manier de spoortjes weg. Denk bij deze methode wel goed na voordat U spoortjes weg 
gaat branden; als de verbinding er wel had moeten zitten brand U twee gehele sporen 
over de print weg.… … 
Succes met het foutzoeken! 








rijten aan verkeerd gepatchde 





Namens de hardwarecommissie: Yvo Tuk. 
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Het datasheetarchief verhu 


Na een flinke tijd van trouwe dienst aan de federatie heeft Gerard Akkermans besloten 
om -mede gezien zijn beschikbare tijd- het datasheetarchief af te stoten, De dank van het 
federatieve bestuur aan Gerard is groot; hij heeft meer dan eens oplossing kunnen 
bieden bij problemen met het verkrijgen van datasheets. 

Bovenstaand wil niet zeggen dat de federatie nu geen datasheetarchief meer heeft, 
sterker nog het datasheetarchief zal steeds blijven groeien! Omdat Gerard en ik toch al 
regelmatig datasheets of boeken uitwisselden heb ik besloten het archief over te nemen, 
dus kan iedereen die behoefte heeft aan één of andere datasheet nu contact opnemen met 
mij. 

In het “nieuwe” datasheetarchief zijn ook een groot aantal datasheets en boeken van 
diverse halfgeleiders opgenomen die niet door ACORN of door de F.A.C, toegepast 
zijn, om hiervan een lijst op te stellen gaat mij te ver; het volstaat mj. al om hier te 
vermelden dat er +3 boekenkasten vol staan met allerlei mappen en boeken. 

De sheets die Gerard heeft gepubliceerd blijven in ieder geval leverbaar. 

De procedure voor het bestellen van cen datasheet: 

Schrijf op een briefkaart je naam, adres, woonplaats en telefoonnummer en het 
component waarvan je een datasheet wilt hebben. Indien er een datasheet beschikbaar is 
van die component zal ik die copieëren en opsturen; de kosten hierbij bedragen f1.0.20 
per copie, en de verzendkosten. Er zijn echter ook enige restricties; indien de datasheet 
uit meer dan 15 pagina's bestaat of indien niet beschikbaar neem ik contact op met de 
aanvrager; in het eerste geval om te vragen of de aanvrager het geld voor de datasheet 
over heeft, en in de tweede plaats om te melden dat de aanvrager ergens anders zal 
moeten zoeken. 

Het adres van. het nieuwe. datasheetarchief: 

Y.E.Tuk 

Postbus 257 

2980 AG RIDDERKERK 


Uw aanvragen worden zo spoedig mogelijk behandeld…… 


Yvo 
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„AUTOMATISCHE CASSETTE BESTURING 


VERSIE 5.1 DOOR ROLAND LEURS 


via / HEROIE 
VERBETERDE VERSIE : 12 JUNI 1986 pe ezuais 


COMMANDO! 5; 

MON MOF 
KAT FCOSV 
FCOSN SCOsV 
SCOSN 


ALGEMEEN : De eenvoudige schakeling rechtsboven zorgt ervoor 
(met bijbehorende software) dat de motor van de cassetterecorder 
automatisch gestart wordt als er naar de band geschreven of van 
de band gelezen moet worden, Na het beëindigen van het lezen/ 
schrijven wordt de motor ook weer gestopt. Om dit te kunnen ge- 
bruiken zijn een VIA en een cassetterecorder met 'remote con- 
trol' -ingang nodig. 


HARDWARE ; De hardware is eenvoudig en goedkoop, er zijn slechts 
een not-poort en een npn-trangistor (eventueel ook nog een 
relaie), Van links naar rechts zien we de VIA, deze stuurt de 
transistor maar als op 'break' gedrukt wordt komt op pin 17 

+5v te staan met als gevolg dat de motor wordt gestart, Um dit 
te voorkomen is de not-poort erbij gehaald, bij mijn recorder 
(Supertecn TRC-6T) kunnen de E en C van de transistor recht- 
streeks in de remote-ingang, maar als dit bij U niet lukt dan 
even een relais erbij halen, 


SOPTWARE : De software is iets ingewikkelder maar ik heb het 
teenvoudig' opgelost door het programma ALLCOS van A, Marshal 

aan te passen en uit te breiden, De aanpassingen zijn de start- 

en stoproutines, de uitbreidingen zijn statements voor P-Charme, 
Verder heb ik de #CAT-routine moeten herschrijven omdat de ori- 
ginele routine niet samenwerkt met mijn ACB, De statements zijn: 
HELP (geeft de informatie die linksboven staat), MON en MOF (start 
resp. stopt de motor), FCOSV en SCOSV (1200/300 baud met ver- 
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korte pauze), FCOSN en SCOSN (1+200/300 baud met normale pauze), 


Na het assembleren kan de machinecode op cassette gezet worden 

en later in een stuk RAM worden ingeladen of de code wordt in 

een eprom geprogrammeerd, Ik heb de A.C,B. samen met MJCOS in 
een 2716 -eprom zitten op #EOOO — #EBOO . 

De sorce is iets meer dan 5 K lang en past gemakkelijk in een 
ATOM met gestapeld geheugen. De machinecode is + 1,2 K lang 

(met MJCUS 2 K), Verder is zoals in de tekst vermeld een P-Charme 
nodig. 


Veel succes en plezier ermee ! RL'86 


En dan volgt hier de listing: 


10 PROGRAM A.C.B. V‚5b 
ZO REM VERSIE III 


40 REM algemeen 

50 P.$12$15"automatische cassette besturing 
40 INPUT "WAAR KOMT DE ACB TABEL “T 

70 INPUT "A.C.B. ASSEMBLEREN NAAR "As D=A+#2003F=A+#500; @=0 
80 PRINT "WORDT MJCOS BIJGEVOEGD zENKEV Y;PRINT SY’ 

90 PRINT “beginadres a.c.c. V.S : "KA 

100 PRINT "beginadres allcos wordt #"&D? 

110 IF Y=CH"J" THENPRINT "assembleer micos naar #"&F’ 
120 DIM LL25 

130 F.I=0 TO 25;LL (ID) =-1 

140 NEXT TI 

150 PRINT “aamaken van statements"’,$21 








170 REM machinecode 

180 FOR I=1 TO 2;P=A 

190 Cz \mon 

200 :LLO JSR #C4E4;LDA@#BO 
210 STA#BBOZ; LDABHOO; STA#BBOO 
220 JMP&CSSB 

230 \mof 

240 rLLt JSR#C4E4;LDA@#DO 

250 STA#B802; STA#BBOO 

260 JMP#CSSB 

270 \kat 

280 1112 JSR#C4EA;LDAEHSO 

290 STA#BBO2;LDAE@HOO; STA#BBOO 
300 :LLS JSR#FBSE;BVS LLS 








FAG.38 ATOM NIEUWS AUTOM.CASS.BEST. ROLAND LEURS 





320 :LLS BEG IL6 

330 LDY@O; JSRF 999; JSRHFZEC 

340 BNE tL7 

350 2tl6 JSR WBC; ISR HFBE2 

360 JSR #F992;JSR #F7ECsROLKDB 

370 BPL LL7; INX; JSRHF7F 1 

380 LDA #FD,X;JSR#FBO2; :LL7 JSRSFFED;BNE LLS 

390 \fcosv 

400 :LL16 JSR4C4E4; JSR Ds LDARS; STANAB; JMP#CSSB 

410 \fcosn 

420 :LL8 ;JSRHC4E4SJSR D;LDAE2; STAHAB; JMP#CSSB 

430 \scosv 

440 :LL13 JSR#C4E4; JSR Dsl DAB1s STAHAB; JMP &CSSB 

450 JSRIC4E4; LDAAKFF ; STAKAC 

460 \scosn 

470 sllL14 JSR4CAEAGJSR DiJMP HCSSBs Js IF Y<>CH"J" GOTO 500 
480[\micos 

490 :LL24 JSRAC4E4;JSR Fs JMP&CSSB; J 

SOOL\help (INFO) 

S10 sLL2SJSR4C4E4; JSRHF7D1 3 15 ?P=HOCz P=P+1 

520 $P="AUTOMATISCHE CASSETTE BESTURING";P=PH.P; !P=#O0DOAOA 
5350 PzP+4 

540 $P="VERSIE S.1 DOOR ROLAND LEURS";P=P+L.P5 'P=#0AOAOD 
550 PaP+3;S$P="VERBETERDE VERSIE 5 12 JUNI 1986 “"sPePtL.P 
560 !P=KODOAOA; PeP+3; $P=" COMMANDO" 51 "; P=P4l. Ps !P=#ODOAOA; P=P+5 


570SP= "MON MOF “yPpePtl.P 
S808P="KAT “zPmP+l.P;3IF Y{ÒCH"J"3GOTO 400 
590 $P="MJICOS “yPePtL.P 

60OSPa"FCOSV FCOSN “PPH .P 
&10$P="SCOSV SCOSN “sP=P+L.Pi CL 
&2ONOP; JMPRCSSB 

&3OI;NEXT;PRINT $6"tabel wordt opgesteld"” 

641 


650 REM opstellen tabel 
640 !T=#BOCGESFF; T=T+3 
670 ST="HELP";TaT+l.T 
&80 2?T=LL25/256 #80 
690 T7i=LL25X256; T=T+2 
700 ST="MON"; T=T+L.T 
710 ?T=LL0/256: #80 





720 sT=T+2 
730 T+L.T 
740 #80 
750 :T=T+2 
760 T+L.T 





770 ?T=LL2/256: #80 

780 T?1=ll2%256; T=T+2 
790 $T="FCOSV";T=T+L.T 
800 ?T=tL16/256: #30 
810 T?1=lL164256; T=T+2 
820 $T="FCOSN"; T=T+L.T 
8350 2T=LL8/256 1 #80 

840 T?1=LL842563 T=T+2 
850 sT="SCOSV";T=T+L.T 
8460 ?T=LL15/256: #00 
870 T?1=LlL134256; T=1+2 
880 sST="SCOSN"; T=T+L.T 
B90 72T=LL14/256! #90 
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POO T?i=tl 144256; T=T+2 

910 XIF Y=CH" IJ"; ST="MICOS"s T=TeL.T 

920 ?T=tL24/256: #80 

930 TP1=ll 244256; T=T4+2 

940 ELSE 

950 7T=#80; #IFC=T/256 

940 

970 REM 43E3EEKallcostsstert 

PBOREM ALLCOS V.3 12.06.86 

9YOREM ORIGINEEL : A.MARSHAL 

1OOOREM V.5 DOOR ROLAND LEURS 

1O1O0REM SAVE EN LOAD ROUTINES 

102O0REM MET AUTD CASSETTE START & STOP 

1O3OREM ALTIJD ZICHTBAAR OP SCHERM 

1OA0REM NAAMLOOS ALTIJD MET EHECKSUM 

1OSOREM 300 OF 1200 BAUD 

LO6OREM NORMALE OF VERKORTE BLOKKEN 

107OREM VERKORTE BLOKKEN ZIJN OOK NORMAAL 

1OBOREM TERUG TE LEZEN 

1O9OREM TWEE GEHEUGENPLAATSEN IN ZERD PAGE(REGEL 200) 
1100REM WILT U ANDERE GEHEUGENPLAATSEN: WIJZIG REGEL 200 
111OREM T=#AE SLECHTS TIJDELIJK NODIG 

1120REM H=#AB HIERIN KOMT UW KEUZE 

11SODIMMMS,NN7, VVS, 553, BB3; BBO=- {1 3 BB1=-1 ; BB2=-1 ; BB3=-1 
1140P."allcos wordt geassembleerd"? > 

1150T=#AE; H=#AB5 P. 821 

1160F. 1I=0T023; MMI=DiN. 

1170F. 1=1T02;P=D 

1180 

1190\ZETTEN VECTORS 

1200L DAENNO%256: STAN214 

1210LDA@MMOZ256; STAH216 

12201 DAEVVO%254; STAN2OC 

t250LDA@S5SOL254; STAHZOE 

1240LDA@NNO/ 2565 STANZLS; STARZ17 ; STAH2OD; STANZOFs INCHZOF 
1250LDA@0; STA HiRTS 

1260\SAVE BYTE 

1270:MMO JSR BBO; STX#EC; JSRVV53 LDXH; CPX@2; BESMMS; JMP&FC7E 
£ 280: MM5 STY#C5; PHP; SEI; PHA; JSR#FC25 

1270STA#CO; JSRÉECDB; LDABHA:; STARC1 ; CLC 

13002MM4 BCC MM1 

1510LDX@7 ; STX#BOO2; LDXE@1 

1520JSRWFCDA; BME MMZ 

13530:MM1 LDA@4 

1540STA#BOO2; JSRHFCDB: INCHBOO2; JSRHFCDE 

1350: MMZ SEC; ROR#CO; DECHC 1; BNE MM4 
13560JSRBB1 ; JMP#FCB& 

1370\LOAD BYTE 

1580: NNO STX#EC; LDXH; CPX@2; BCSNN7 ; JSR#FBFO; JSRVVS; RTS; 
STY#&CS; PHP; SEI 

LDAS#7E ; STA#CO 

JSR&FCBD; BCC NNI ; INC#CO; BPL. NNZ 

1420: NN6 LDA@#1 4; STARC4; LDXEO;LDY#BOO2 

1450: NNS JSR#FECD; BEG NNS 

1440: NN5 BEG NN4; INX 

14SO:NN4 DEC#C4; BNE NNS; CPX@3 

146ORORHCOS BCC NN& 

LA7OLDA8CO: JSR VVS: JMPHFCIE 
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1480\0P SCHERM ZETTEN 

14901 VVS; LDXT 3; PHAs CLC; ADC&32; EOREIG 

1500STARBOOO, X3 INCT; PLA; RTS 

1510\L0AD FILE 

15520: VVO PHP; SEI; JSRIFBAF ; PHP; JSR BBO; PLP; BEQWI 
1530LDA@O; STABDO; STAND 1 - 

1531: BB3JSRHFAZ; BECBB2; INCHDOs INCHEC; BNEBBS 

1540: BB2; JSRBB1 ; JMP8F94E 

1550: VV1 LDA@O; STA#DC 

1560JSR VVZ 

1570JSR&F9F2 

1580: VV3LDAE79; JSRHFFF 4; LDAR7 5; JSRHFFF 45 JSR#FFED; PLP; JSRBB1 ; RTS 
15902 VZ PHP IMP4FI2F 5 

1400\5AVE FILE 

1610:550 PHP; SEI; JSR#FA4F; PHP; LDA@G; JSR BBO 

1620LDX@7 ; JSRHFB7A; PLP; BNE ss1 

1630LDARO; STANDC 

1640JSR SS2 

1&SOLDADC; JSRIFFD1 ; JSRHFB78 

14660BEQWS 

16701552 PHP; JMP#FASE 

1480:851 LDAH;RORA; BCS P+8j JSRAFAFB; JMP BDi 

1690LDX@4; LDAKCE, X; STARD2, X3 DEX BNEP-5 

1700STX#DOz STXD1 ; L.DARDS; BNEP+45 DECH#D&; DECHDSg CLE 

17 10ROR#D2; SEC; LDX@MFF ; LDARDS3 SBC#D3; STARCF 3 LDA#DG; SBCHD4 
1720PHP3 ROR#D23 PLP3 BCCP +83 CLC; BEGP+ 5; STXACF ; SEC; RORHD2 
1730INX5JSR VV4g INCHDO; INCHD4; INCRCC; ROL4&D2; BCSP-#29 
1740JSR#FB78; PLP; RTS 

1750\ZENDEN EEN BLOK 

1760: VV4 LDX@60; JERBBO; JSRF BES; STXADCE LDYO4 

176&1LDAE#2A; JSRMFFD1 ; DEV 

1770BNE P-#63 LDA (ECI) ‚Ys; JSREFFD1; INY; CMP@1 3; BNEP-6; 1 DY&B 
17B60LDA4CA, Y3 JSRUFFD1 3 DEY 3 BNEP-7; LDX@6; JSRBBO 
1781JSR#FB8S; BITRD2; BVCP+15 

179O0DEY ; INY; LDA CDI) ‚ Ys JSRHFFD1 ; CPY&CF ; BNEP-85 LDARDC; JSRHFFD 1 
18600JSRBB1 

1810RTS; : BBO PHA; LDAE#3O; STA#BBO2; LDA@#OO; STA#BBOO; PLA; RTS 
1820:BB1 PHA;LDA@#80; STA#B800; PLA; RTS 

18301;N.;P.$6 

1840P.” “ASSEMBLER CODE STAAT IN HET GE- " 

1850P. “BIED #"&A, "-8"&P’ 

1860P.* “DE A.C.B. IS NU KLAAR VOOR GE- BRUIK. hide 

1870 !'#B1FB=#38270C12; 2481FF=#56; END 


# 
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PICTUREWARE: Video Digitizer Deet 5 Gerrit Hillebrand 





Edge Petection 


Ondanks het feit det deze Tfeciiiteit Ingedeeld is blj de 
verhalen over de video digitizer, is deze graphics-utility ook 
los van de digitizer of Provence Deco te gebruiken. Ik heb dit 
toch onder deze noemer geplestst om op deze manier te taten 
zien hoe Je een ‘extension’, zoals uitgelegd in deel 4, san 
Provence Deco kunt hengen. 

Wat is nu Edge-detect lon? 

M.b.v. edge-detection is het mogelijk om zwert/wit overgangen 
In een grephic plaatje in beeld te brengen ten koste van de 
originete ingekleurde vlakken d.m.v. een gesette pixel. Dit wil 
zeggen; zwarte of witte vlakken worden niet meer els zodanig 
weergegeven, doch etieen in de grondkleur, met op de plaats van 
de zwart/wit overgang een plxel. 

Helemeal plat gezegd: hetzelfde eftect krijg je ats le (en wle 
heeft dit nog noolt gedaan?) een foto of een tekening natekend 
d.m.v. een trensperent peplertje erop te leggen en van de 
tekening overtrekken. 

Op deze manier kun Je voor Je kinderen altijd vol doende 
kleurpisten In huis hebben! 


Het eigorithme is een benedering van de gradient methode en het 
gebruikt etteen optelien en aftrekken en deerdoor bijzonder 
geschikt voor machinetaal , 

Het pinclpe: 





Voor elke pixel met functie f(x,y) wordt de ortgenele waarde 
vervangen door de waarde berekend ult: 
gradient = fo yd O4, y) + Toy Oy 


Duidelijk is dat de berekening moeite heeft met de rechen 
kantijin en de onderste regel. 

Om dit los van Provence Deco te gebruiken dien le de 
aanwijzingen In het commentaar van het programme na te leven. 


ben nu onder het motto 'A Picture Paints A Thousand Words 
volgen er enkele sprekende voorbeelden. 


Gerrit Hillebrand 
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10 PROGRAM EDGE-DETECT | ON 

20 

S0 PASS2;GOSs,.a 

40 PASS1;G0S.a 

50 END 

60 

ZO08ASM-BEG IN 

80 

S0 ( This routine performs the Edge-detect {on function %*) 
100 (* le. drewing the contours of & picture depending *) 
110 (« the bleck/white fading. The picture to be processed) 
120 (& must be avaliable st $8000-#8800. Line 250-270 are *) 
120 CX user dependent and cen be changed. %) 
120 (x This routine Is In this form connected to the Pro- «) 
150 @ vence Deco ROM by selecting -E- et the main menu _*) 


180 (k For use outside Provence Deco: remove 210 — 230 %) 
170 (& change line 520 In: 570 rts x) 
180 


1890 .optton :0101 OOO0 
200 


210 ‚code #0220 

20 rem 

230 {mp #0400 

20 ‚ 

250 .code #0400 

250 ram #0400 

270 ‚tabie #5200, #S000 
280 






280:mempnt = #70 
300: | (nepnt #74 
310: temp = #76 
Se0:plcmemory = #8000 


SOinxti ine picmemory +32 
S40:rightpoint Picmemory +1 
250:deco_entry = #AOBA 

350 

370: edge 

350 lda @(plememory)/25B;ste mempnt+1 
250 !da @{rightpoint)/256;ste mempnt+3 
400 (da @(picmemory)Xe56; sta mempnt 
410 Ida @(rightpoint)%es6;sta mempnt+e 
420 (da @(nxti Ine)Xx256;sta | Inepnt 

430 toa @{nxtitne)/255;ste (Inepnt+1 
440 

450:maincycte 

460 tax e#17 

470 dy A0 

480: edge_loop 

490 Isr edgepoints 
500 Iny 

510 bne edge_loop 
520 Inc mempnt+1 580 


590: edgepoints 
530 inc mement+3 
540 Inc i ineontss 800 Ide (mempnt),y 


610 ste temp 
550 dex 

560 bp edge loop pha 

570 Jmp geco_entry 
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S30, 

630 tya;and @#0F;cmp @%0F;beg doelse 
840 Ios (mempnt+2),y 
650 esl e 

850 jmp continue 

670: doel se 

580 Ide (mempnt),‚y 

680 Isr s 

700: cont nue 

710 pia 

rol @ 

eor temp;sta temp+1 
tdae Ctinepnt),y 
eor temp;ore temp+4 
ste (mempnt),y 

rts 


end of assembly 


810 RETURN 


ERE 
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GEEF DMV TWEE LEDJES AAN NAAR WELKE KANT UW MDCR opspoeu rt! 


[a] [ol le] 


Door de reactie van enkele atomisten bleek dat er 
belangstelling was voor de nieuwste MDCR configuratie, 

Deze bestaat uit een additie van drie ledjes op de frontplaat, 
zodat de status van de MDCR is af te lezen. 

De led's zijn verbonden met de gebufferde uitgang van het 
interface en kunnen dus zonder meer worden vastgesoldeerd. 
Met een voorschakelweerstand van 2K2 loopt er ongeveer een 
stroom van (12V-0,7V)/2k2 Ohm = 5,1mA, Dit is ruim voldoende 
voor een Ied te laten oplichten. En zeker voor High-Effiency 
Led's. 

De maximale stroom die de uitgang mag leveren is 8,0 mA !.De 
minimale weerstand mag dus zijn (12V-0,7V)/8mA =1k5 Ohm.Dus de 
weerstand niet Lager nemen dan IKS Ohm. 

De led's kunnen naast elkaar boven de cassette-opening 
gemonteerd worden.Ik heb een groene led indicatie voor de 
voedingsspanning en twee rode led's voor de bandloop,. 

De linker led is aangesloten op de REW-uitgang en de rechter- 
led heb ik aangesloten op de FWD-uitgang. 
Voor het aansluitschema zie bijlage 1. 

Bij het verkeerd aansluiten van de plus en de min is 
er gelukkig deze ene keer niets aan de hand.De led's worden 
dan gewoon niet aangestuurd dus gebeurt er ook niets, 

We noemen deze schakeling dan ook''student-proof"!! Is er echter 
iemand zo'n specialist die de plus aan de REW-uitgang legd,dan 
gaat het helaas goed fout!! 

Bij een “rewind” wordt nl. deze uitgang aan massa gelegd. 
Indien nu de led met zijn voorschakelweerstand tussen de plus 
en deze uitgang gelegd wordt,dan zal de led oplichten. 

Wordt echter de plus aan de REW-uitgang gelegd dan krijgen 

we bij een "rew'" een heuse sluiting naar nul.we weten P=U*I 
dus we weten precies hoe warm het IC wordt bij een voeding van 
12V en lA.Leg een ei op het IC en het is binnen 2 seconde gaar. 
Eet smakelijk zou ik zeggen.Een nieuw IC kost ongeveer FL.1,00 
en met een beetje geluk een nieuwe MDRC maar FL.80,00 excl. 

een nieuwe atom _ 

Dit geldt natuurlijk precies hetzelfde voor de FWD-uitgang. 


Sorry dat ik mischien zo brutaal ben,‚maar als er iets 
verkeerd aangesloten wordt,sta ik niet voor de gevolgen in. 
Ik heb dat nl, zelf nog niet uitgeprobeert! Het systeem werkt 
overigens uitstekend.Bij het laden zal de"forward-led'"ook gaan 
oplichten omdat de band dan vooruit loopt.DEZE LED HEEFT DUS 
EEN DUBBELE FUNCTIE, 





Bij deze wens ik iedereen succes bìj het # verbeteren" 
van zijn MDCR, 


GROETJES Jan Swinkels 
Heythuysen 


MDCR _J,SWINKELS 
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Bijlage 1 schema aansluiting led's op MDCR 








fig.1 MDCR print van componentzijde bekeken 


+124, 


2K2 2K 2) 2K2} 


NN 
DSN 
\N 


b d c 
HIj 


PAS OP! 

STROOM NIET! GROTER DAN 8mA 
T=UiR 
MINIMALE WEERSTAND IS 1K5 Ohm 
kleurcode: bruin,groen,rood 


I =(12V-0,7V)/1K5 BmA 





Ki 


I= (12V-0,7V)/2K2 bmA 


Bij gebruik van groene led 
zal deze niet zo fel oplichten! 


fig.? aansluitingen led's op MDCR 
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RTTY TX/RX VAN PEIKXZ 


Inleiding 


Er zijn reeds enkele programma’s verschenen om RTTY signalen te 
ontvangen en/of verzenden, die overigens bij vele zend- en 
luisteramateurs met succes in gebruik ziijn. Nadat ik aan het 
experimenteren was geslagen met de VIA besloot ik om zelf een 
teenvoudig) RTTY-programmaat je te maken. Omdat ik echter 
voortdurend wijzigingen en verbeteringen aanbracht, is dit korte 
programma al snel uitgegroeid tot een groter programma, waar ik 
mogelijkheden heb ingebouwd naar mijn eigen voorkeur, die ik 
helaas miste bii sommige andere programma’s. Na herhaaldelijke 
verzoeken van diverse personen heb ik dan ook besloten dit 
programma aan iedereen beschikbaar te stellen. Ik wil echter met 
nadruk bevestigen dat dit programma bedoeld ís om er zelf mee te 
experimenteren, daar na publicatie van dit artikel 
waarschijnlijk alweer wat gewijzigd is. Dan volgt nu de 
handleiding voor het gebruik van het programma. 


Hardware 


Voor het ontvangen van RTTY signalen is een telexdecoder 
benodigd om de mark- en spacefrequenties om te zetten in een "1" 
of “O", zodat deze signalen eenvoudig door de computer te 
decoderen zijn. Dergelijke schakelingen zijn te vinden in o.a. 


Acorn Nieuws samenvatting 1982 blz. 9& 
Elektuur juli/augustus 1982 blz. 8-14 
Elektuur juni 1985 blz. 6-56 


Deze interface wordt aargesloten op poort c, bit 3 van de 8255 
(mark="1", space="0"), Deze aansluiting is de meest rechtse als 
men van achter de computer naar de DIN-plug kijkt (pen 7). Ik 
heb voor deze aansluiting gekozen om niet een grote 64-polige 
connector te hoeven gebruiken voor de aansluiting van de 
decoder. Desgewenst kunt u het programma wijzigen voor gebruik 
met de VIA-poort. 


Voar het zenden van RITY wordt een AFSK-signaal opgewekt op PB7 
van de VIA. Als u nu een weerstand van 4,7 kOhm tussen PB7 en de 
cassetterecorder-uitgang opneemt, kunt u voor zenden en 
ontvangen gebruik maken van slechts 4 zeven-polige DIN-plug, en 
u kunt de signalen ook nog op de recorder opnemen voor 
experimenten. Als u MJCOS kan gebruiken heeft u deze weerstand 
al reeds gemonteerd. Na verzwakking (bij mij een spanningsdeler 
bestaande uit een weerstand van 10 kOhm en een van 100 Ohm) kan 
men het AFSK-signaal op de ingang van de transceiver aanbieden. 


Om de zendontvanger automatisch aop zenden te schakelen als u 
gaat zenden ís de mogelijkheid ingebouwd om de push-to-talk 
ingang van uw set aan te sluiten op PB& met tussenschakeling van 
een transistor (T 1", RX: 
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Software 


Geheugengebruik: 

#2900-4SFFF programaa in BASIC en asseabler 

#28300-#28FF floating-point variabelen 

#4000-A7FFF werkbuf far 

#8200-#9FFF tekstbuffer 

#80-#90 zeropage (let dus op met somnige EFROM’s op #A000) 


Na RIN wordt het programma eerst geassembleerd, intussen ziet u 
de volgende tekst: 





BEDIENING: 

t = TX (=zenden) 

r RX (zantvangen) 

c = CW ID. (zmorse-identificatie) 

b = BUFFER (op voorhand intypen) 

m = MENU (hier kont u de eerste keer vanzelf in) 


Nadat het pragramma kiaar is met asseableren, kaat u vanzelf in 
het menu terecht. Hier kunt u de diverse wijzigingen aanbrengen 
‚ en wel door op de gewenste cijfertoets te drukken, De nieuwe 
(standaard-) waarde komt dan vanzelf op de plaats van de oude 
waade. Hieronder volgen de waarden waarop U alles kunt 
instellen, waarbij de waarden die bij het de eerste keer 
binnenkomen van het menu zijn ingesteld hier als serste staan 
vermeld: 


BAUDRATE 45.45/50/57/75/100/110 Baud 
SHIFT 170/300/425/850/1000/B5 Hertz 
LAAGSTE FREQUENTIE 1275/2125 Hertz 
POLARITEIT MLSH/MHSL, 

(mark laag, space hoog/mark hoog, space laag) 
BLANK TEKEN UIT/AAN 

AUTO CR/LF UIT/AAN 

UNSHIFT ON SPACE UIT/AAN 

STOPBIT 1,5/1 bit 

LEESTEKENS INT/WU/MIL 

(internationaal /Western Union/military) 


OONPU BUNE 


re 


= NAAR TX (zenden) 
NAAR RX (ontvangen) 
WIJZIG BUFFER (tekstbuffer van 7,5 kB) 





[=d 
u 


Als u het programma alleen voor ontvangen gebruikt is voor u 
alleen de baudrate, polariteit, unshift on space en leestekens 
van belang. Tijdens ontvangen wordt het bell-karakter afgedrukt 
als b, een niet bestaand karakter uit de set leestekens als e. 


Tijdens zenden is er een werkbuffer die er voor zorgt dat u 
gerust zo’n B kB tekst sneller typen mag dan de computer 
uitzendt, deze buffer kunt u overigens ook al beginnen vol te 
typen tijdens ontvangen. Als u dan overschakelt op zenden wordt 
de tekst hierin direkt uitgezonden. Verder is er een tekstbuf fer 
vaar het op voorhand intypen van berichten of standaardteksten, 
deze buffer kunt u vanuit het menu kiezen om er tekst in op te 
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slaan en is max. 7,5 KB lang. Als u dan tiidens het zenden b 
intypt wordt de tekstbuffer gecopieerd in de werkbuffer en 
uitgezonden. Verder is er een call-gever aanwezig waarin u de 
roepnaam van uw amateurstation kunt plaatsen.’ Om deze te 
activeren typt u c‚ de roepnaam wordt dan in morse uitgezonden 
en wel met de mark- en spacetoon die ook voor RTTY gebruikt 
wordt. Verder is er nog een handigheidje ingebouwd om fouten 
tijdens het typen te kunnen verbeteren, want de Baudotcode kent 
geen code om 1 teken terug te gaan. Als u nl. sneller typt dan 
de computer zendt kunt u nog voor het uitzenden van de ingetypte 
tekst de fout verbeteren met DELETE. Niet voorkomende tekens 
worden tijdens uitzenden genegeerd. Als u de auto CR/LF aanzet 
wordt na 64 tekens automatisch carriage return en linefeed 
gegeven, voor het geval de ontvangstzijde gebruik maakt van een 
telex-machine (die kunnen na het einde van de regel niet 
verder) 


Indicators 


Tijdens ontvangen wordt rechtsonder een r gezet (van RX), 
tijdens zenden een t (van TX). Links hiervan wisselt een wit 
streepje in het ritme van de mark- en spacetoon van plaats 
(omhoog=mark, omlaag=space), dit werkt tijdens zenden en 
ontvangen. . 


Wijzigingen 


U kunt in de listing de volgende dingen naar eigen voorkeur 
aanpassen: 


SK = string waarin de roepnaam van uw station voor de 
morseidentificatie, max. 255 karakters, dus meer dan genoeg. 

V = snelheid van de morsetekens, 10-30 woorden per minuut, hier 
20 want dit is nag net niet te snel volgens de 
machtigingsvoorwaarden van de PTT. 

E = clockfrequentie van uw ATOM, normaal 1 MHz, ik heb echter 
het programma nog niet getest op andere clockfrequenties. 


Ook de beginwaarden van het menu kunt u wijzigen waarbij de 
volgende variabelen van belang zijn: 


B = baudrate in Baud 

= frequentieshift in Hertz 

= frequentie van de laagste toon in Hertz 
polariteit O=MLSH, S=MHSL 

blank teken 1=zuit, Ozaan 

auto CR/LF I=uit, Ozaan 

unshift on space S=uit, Ozaan 

stopbit 1=1.5 bit, O=l bit 

leestekens ISINT, 2=Wi, S=MIL 





ZMDPONmTWN 


Wanneer u de interface aan wilt sluiten op PBO van de VIA moet u 
de volgende wijzigingen aanbrengen: 


wijzigen: regel 40 REM TTL IN PBO VAN 6522 
regel 1000 de 8 in ft veranderen 
regel 1040 de 8 in 1 veranderen 
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regel 2020 LDA#BBOO; ANDE1 
regel 2190 LDA#B800; AND@1 
weglaten: regel 1850 
regel 1860 
regel 2870 
regel 2880 
toevoegen: regel 1615 LDA@RBA; STA#BOOS 


Verdere gegevens over RITY (die ik ook heb gebruikt voor dit 
programma) kunt u vinden ins 


Elektuur juni 1985 blz. 6-37 
Vademecum VERON blz. 279 


Laat het eens weten voor het geval u interessante wijzigingen 
aanbrengt, misschien hebben deer mensen er iets aan. 


Veel succes gewenst van Frank Vergoossen (PEIKXZ) tel. 
04754-19772. 


P.S. De programmatuur is natuurlijk ook weer via het bandies- 
en diskarchief te verkrijgen. 
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Na jaren hobbyen had ík mijn ATOM uitgebreid met: 
— 80 kolommen kaart 
= BGemoleeteerde BEC-kaart t.b.v. andere booteoft 
Speedup voor CPU (en ruisvrij BO kol.) 
Ram blokje op #A000 
32 Kb dynamische RAM kaart (Elektuur) 
Door mijn luiheid ging de mechanistche konstructie achteruit bij 
elke uitbreiding. Bv. de speedup schakeling hing lor aan de 
draadjes in de ATDM. Bovendien hingen de uitbreidingskaarten 
nogal wankel aan de "cactus’. 
Door al deze orapPen en erollen zag ik geen mogelijkheid meer om 
de hoogst noodzakelijke VIA (tbv ZBO) fatsoenlijk in te bouwen. 
Ik heb daaron besloten de hele ATOM te reviseren, d.w.z. ik heb 
de reserve ATOM uit de kast gepakt en in 4 keer voorzien van de 
door mij gewenste mogelijkheden: 
= 64 RAM: 0000-7FFF en B2A000-AFFF 
8 % Axxx schakelblokken ín EPRDM (27256) 
S £ boot eprom 27256 of 27128 op COOO-FFFF 
6522 voor 260 kaart 
Oomschakelbare video 
25240 text, cpu ep 5 Mir 
25880 text, cpu op 1.8432 MHz 
2564320 graphics, £ MHz 
2564640 had » 1.6432 
5128640 hed 'e 3,6432 (interlaced). 
- 6B21 voor schakelsoftware en video besturing 
Dankzij het gebruik van dynamisch RAM past alles op een print van 
10820 cm. 
Van de kale ATOM wordt het volgende nog gebruikt: 
= 8255 voor toetsenbord & cassette & 6547 BOOO-BSFF 
= BKb video geheugen voor 6B47 B000-9FFF 
= printerpport met originele VIA EBBOO-BEFF 


De basic zit gamen met de FP-ROM, DDS en OS in î van de 
booteproms. 


tt 


vele 


KET SCHEMA 


Het schema bestaat uit vier delen te wetent 

— high-speed timing, video, dyn. RAM best. en klok schak. 

= dynamisch RAM en adres multiplexers 

=— EPROMS & adresdekodering k reset 

= 6845 & 6821 & 6522 & adresdekodering 
De eerste twee velletjes zuilen het lastiost te begrijpen zijn 
even. Oe timing en de getruukte video omschakeling. 


SCHAKELBITS VAN DE 6821 


PAO Daschakelen kiokfreg. O=1.B432, 1e1,000 

Pai 0=684f, 1=6845 video 

PA2 Ozgraphics, iealpha 

PAS-PA7 pointer naar 2 Kb blok voor videp geheugen (txt) 
CAS niet gebr. 

CAZ Ozhor.lijnen bestaan uit dots, 
PBO-PE7 schakelsoft 

CB1 Ongebruikt 

CR2 intensiteit van scherm in oraphics mode. 


ielíjnen ononderbroken 


ATOM REVISIE PETER HUISKEN ATOM NIEUWS PAG.51 





ONDERDELENL IJST 
28741504 8841654 DF 284464 
74504 2764 
74LS10 6522 
74L530 6B21 
74LBSS &B45 
3474LB15B 27256 (1-4) 
74LS159 
74LBISS KRISTAL 14.74 
7ALS157 8.000 
74L515B REEDRELAIS 
74ALB16L DONSTDOR C’S 
7AL516& KONNEKTOREN 
S$74L5174 
74LB245 
&174L525B 





EPgons: zjnd ef 17256 


EPROMS & adresdecodering & reset 
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JALSSD Copa celle) 


high-speed timing, video, dyn. RAM best., clock 
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dynamische RAM en adres multiplerers 
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6845 & 6821 & 6522 & adresdecodering 
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Het matrix-programma 


Dit programma (lengte ruim 6 kilobytes) draait 
in principe op iedere ATOM met P-charme, 
Floating-Point en voldoende geheugen. Het 
programma neemt de ruimte in van #2900-#41C1, 
maar voor opslag van de array's bij een maximale 
dimensie van de matrix van 25 is de verdere 
ruimte vanaf TOP tot #78-—— nodig. 

Wat is het doel van dit programma? Wel, bij vele 
toepassingen in techniek en wetenschap duiken 
vergelijkingen op met meerdere onbekenden. Deze 
vergelijkingen kunnen in de matrix-vorm 
geschreven worden. Om de oplossing van de 
vergelijkingen te kunnen bepalen dient dan een 
inverse van een matrix bepaald te worden en dat 
is wat in dit programma gebeurd, aangezien het 
een heidens karwei is om handmatig een matrix 
groter dan 3*3 te inverteren en rekenfouten een 
bijzonder grote invloed hebben. In "Atomic 
Theory and Practice” staat op bladzijde 51-53 
een programma beschreven dat razendsnel voor 
integers en breuken van integers simultane 
vergelijkingen kan oplossen. Wie echter met 
reele getallen wil werken moet het met dat 
Programma zoeken in benaderingen. Dit wordt ook 
dan weer een enorme klus. 

In het blad “BYTE" van april 1986 kwam ik een 
artikel tegen met een interessante en snelle 
methode om iteratief matrices te inverteren. Wie 
geinteresseerd is in de preciese details moet 
dit artikel maar lezen. Bij dit artikel stond 
ook een kort BASIC-programmaatje dat ik 
omgewerkt heb voor de ATOM en dat als PROC 
INVERSIE een spilfunktie in mijn programma 
MATRIX vervult. Om deze procedure heen heb ik 
nog invoer- en uitvoerprocedures geschreven en 
via een menu alles aan elkaar gekoppeld. Het 
programma is naar mijn mening bijzonder 
gebruikersvriendelijk, al moet je natuurlijk wel 
weten wat simultane vergelijkingen e.d. 
inhouden. Bovendien zal het moeilijk zijn om dit 
programma in de fout te lokken, gezien de vele 
ingebouwde beveiligingen en foutmeldingen. 

Ik hoop dat het opvalt dat de getallen bijzonder 
netjes uitgeprint worden, hiervoor zorgt PROC 
AFDRUK, een zonder meer ook in andere 
progrämmna' s over te nemen procedure, die 
fp-getallen weergeeft zoals het naar mijn mening 
hoort. Omdat het een procedure in ATOM-BASIC is, 
is de procedure nogal traag, helaas. 


PAG.56 ATOM NIEUWS MATRIX ALEX VERMEULEN 





Het gebruik. 


Hopelijk wijst dit zich vanzelf, Hier alleen 
enkele opmerkingen. Bij de inversie vraagt het 
programma om een gewenste nauwkeurigheid. Deze 
hangt af van de orde van ‘grootte van de te 
inverteren matrix; kies de nauwkeurigheid een 
faktor 10°6 tot 10°8 kleiner dan het grootste 
element van de te inverteren matrix. Eníg idee 
van hoe goed de benadering voldoet geeft het 
aantal iteraties. Matrices met een dimensie 
kleiner dan 10 hebben meestal genoeg aan 10-20 
iteraties, grotere matrices hebben tussen de 20 
en de 25 iteraties nodig. Hou er wel rekening 
mee dat een matrix van 25*25 ongeveer 4 uur 
rekentijd vergt (een reden om je ATOM op 2 of 
zelfs 4 MHz te laten gaan draaien; misschien dat 
een verbeterde floating-point ook een faktor 
twee scheelt). Voor matrices kleiner dan 10 is 
er nog op te wachten en ín de meeste gevallen ís 
er toch sprake van niet meer als tien dimensies. 
Wie verder wil gaan dan 25*25 zal de 
geheugenruimte daarvoor moeten vinden (W in 
regel 3160 aanpassen! )}. Met het programma 
(indien mogelijk} op bv. #800, geknoei met de 
dimensionering e.d., moet het kunnen tot 50*50 
te gaan. Rekentijden lopen dan echter op tot 
zo'n 16 uur. Hou er dan wel rekening mee dat de 
resultaten na zoveel bewerkingen nog weinig 
relatie met de werkelijke inverse zullen hebben. 
In feite is een stelsel van 50 simultane 
vergelijkingen ook gekkenwerk. 

Ik wens iedereen veel genoegen met dit 
programma. Ik zou het op prijs stellen als 
mensen mij hun mogelijke verbeteringen, gevonden 
fouten zouden willen doorgeven. Mijn adres: 


Alex Vermeulen 
Hoevestein 239-16A 
6708 AK Wageningen 
08370-21087 


“arr voorbeeld uitvoer naar printer **** 
DE MATRIX: 


„4999E-01 2.0000E+01 
„8695E-02 1.1500E+021 
‚3571E-02 2.8000E+021 


{_ 1.0000E+00 
t _1.0000E+00 
{ _ 1.0000E+00 


oco 


DE INVERSE: 


[ -0.1142E-02 Q.7860E-02 -0.3146E-02] 
[_0.9311E-01 -0.1467E+00 0.5361E-01} 
[ 0.2891E-05 -0.2620E-04 0.2331E-04] 


MALRIX ALEX VERMEULEN ATOM NIEUWS PAG.57 





VOOR DE VEKTOR: 
[_ 2.2999E+00 O.2899E+00 O.1499E+001 


WORDT DE OPLOSSING: 
Z(1)= -0.2295E+00 
Z(2)= 5.0304E+01 
Z(3)= 0.7137E-03 


10 PROGRAM MATRIX 


20 

30 G.b 

BE MANANA AKKI KIKA KKK 
50 Doel: Het inverteren * 


&0 kvan matrices en het op=-k 
7Ò klossen van stelsels vant 
80 lineaire vergelijikingenk 
Methode: Fann-Reiff-al-k 
tgarithme, beschreven int 
KEYTE, april 1986. « 
kBewerking: A.Vermeulen & 
X Hoevestein 259-16a « 
k 6708 Ak Wageningen * 

* 

* 





150 « 08570-21087 
10 BRKKKKARK KKK K 


















Nodig in de ATOM: 

F-Charme 

FF 

Veel geheugen 
DEROC INTRO 
F.&123 HEI F‚t PsVT.S;HT. 2 
EPAR MATRIXREEENING KKK" 
VT. 145 HT. 15; P.C) A, VERMEULEN" 
VT. 154 HT. 224 PF, "TOETS E" 
INKEY Es HEL =#80 
FEND 








FROC MENU 

FSIZEHT.O7 EE. SKK MEN] kkk 
INVOER MATRIX'® 

INVERSIE MATRIX"? 

AFDRUKKEN MATRIX EN INVERSE"? 
INVOER VERTOR"" 

OPLOSSEN VERGELIJK ING"" 








- INFORMATIE"? 

7. EINDE“" 
F7 "CEEUZES" 
DOS KEY kgU. (EZCH"OPD A, (EECHYB) 
CASE k_ OF 
CH" 1" INVOERMATRIX 
ZCH" 2": INVERSIE 
aCHIEN AFDRUEKEN 


CH'“& INVOERVEETOR 
SCHIEN OELCOSSEN 
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ATOLCH" 6" > INFO 

4BOECH"7" > P‚$IZTEND"" END 
490 CEND 

590 PEND 

si0 

520 PROC INVOERMATRIK 

530 P‚,$12 

540 HT. Sz. KKK INVOER MATRIX KEEK"? 
550 DO 

566 VT.2 

570 P."“DIMENSIE (5"W4i“) 
586 HT.14;IN.N 

520 UNTIL NEL AND NSW+1 
600 ZG=0 

&10 FOR I=t TÔ N 

620 FOR J=1 TO N 

BED PPA, Jeet 

640 FIN. XW 

650 KAAI, J) =XW 

460 FIF ZW24G5 AG=ZW 

670 NEXT 

&B0 NEXT 

4690 FOR I=1 TÔ N 

700 FOR J=i TO N 

710 KAAL, J)=KAACI, B) /4G 
720 NEXT 

750 NEXT 

740 M=t;G=0 

750 PEND 

740 

770 PROC INVDERVERTOR 

780 P.SI2" KKKK INVOER VAN VEETOR KKAX"T" 
790 XIF M=0 THEN 


B00 DO 
810 vr. 
B20 PF. "DIMENSIE VERTOR C&"Weit) 


820 HT. 22; IN. D 

840 UNTIL D>i AND DEW+1 
850 ELSE D 
840 FOR I=t TO D 

870 Fern e! 

880 FIN, ZW 

890 AYYCID =ZW 

FO NEXT 

910 Vel 

920 PEND 

950 

940 PROC OFLOSSEN 

950 F‚$12 

960 XIF Mel THEN 

970 XIF Veil THEN 

9830 XIF N=D THEN 

990 XIF Get THEN 

1060 P‚' KX OPLOSSEN VERGELIJKINGEN &#"77 
2010 EOR I=i TO N 
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1020 
1030 
1040 
10950 
1060 NEXT 

1070 P. "UITVOER NAAR PRINTER (J/N) "7? 
1080 INKEY Q 

1090 IF Q=CH"J" OR O=CH"i";F. $2 

1100 F‚°"YOOR DE VEKTOR: "* "CL" 

1110 FOR I=t TO N 

1120 DRUKAF (4,12, 4YYI) 

1130 NEXT 

1140 P‚"J""" "WORDT DE OPLOSSING: "* 
1150 FOR I=i TO N 








1160 P‚“ZC"I")s=";DRUJKAF (4,12, AZZIJ GP.’ 
1170 NEXT 
1180 P‚$2’ "TOETS"; INKEY OQ 





1190 ELSE P."MATRIX NIET GEINVERTEERD";PAUSE 


ELSE P. "DIMENSIES WV EN Mm NIET 





, AUSE 100 
1210 ELSE P,"VEKTOR NOG NIET INGEVOERD";PAUSE 
100 
1220 ELSE P,“MATRIX NOG NIET INGEVOERD";PAUSE 
100 
1250 PEND 
1240 
1250 PROC INFO 
1240 P.$12jP." KRKK INFO KKK 


“DIT PROGRAMMA BENADERT DE"? 

- "INVERSE VOOR IEDERE POSITIEF"? 
".“DEFINIETE REELE MATRIX, "* 

“HET GEBRUIKTE ALGORITHME IS"? 
"DE ITERATIE VAN NEWTON, "* 
„WAARBIJ DE EERSTE BENADERING" 
VERKREGEN WORDT DOOR DE METHODE"? 
VAN PANN-REIFF, (BESCHREVEN IN"* 
DE 'BYTE’ VAN APRIL 1986) "" 

DE MAXIMALE DIMENSIE VAN DE TE"" 
INVERTEREN MATRIX IS "Went 
"TEVENS EAN MET DE GEINVERTEER-"" 
DE MATRIX EN EEN IN TE VOEREN"? 
VEETOR EEN STELSEL LINEAIRE"? 

HT. 153, ATOET zINKEY Q 

F.$12 

VERGELIJKINGEN OPGELOST WORDEN. "* 
RESULTATEN ELINNEN NAAR KEUZE OP"? 
DE PRINTER OF OP HET SCHERM AF—"" 
GEDRUKT WORDEN. "* 

















1460 
1476 P. "GEBRUIKTE AFKORTINGEN: ** 
14385 ee M=MATRIX"" # V=VEKTOR"? # 











Ze OPFLOSS IMG" "WAARBIJ 
1390 FP, Mk Ze yr 

ë > ALEX VERMEULEN, WAGENINGEN" " 
TOETS "2 INKEY G 
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1520 PEND 
1530 

1540) PROC AFDRUEKEN 

1550 XIF Mei THEN 

1560 P‚s12" xKKK AFDRUK 
1570 PF. "MATRIX AFDRUKKEN 
1580 INKEY QsP.$0 








EN KKK! 
J/N eN 





1590 XIF Q=CH"J" OR Q=CH"i" THEN 
1600 Ff." “UITVOER NAAR PRINTER?" 
1410 INKEY Qs; PF. $G 

1420 IF CHJ" OR G=CH" iP. EE 





1630 F‚° "DE MATRIXz "*" 
1640 FOR I=1 TO N 


1650 Ft 

1660 FOR J=i TO N 

1670 DRIJKAF (4, 12, AAA CI, J) KAG) 
1680 NEXT 

16590 Ee hd 


1700 NEXT 
1716 P.&5 
1720 ELSE 
ELSE 
XIF Gei THEN 
F_""INVERSE AFDRUEKEN (J/N) 2! 
INKEY Gi P.$G 
XIF Q=CH"J" OR BECH"i" THEN 
UITVOER NAAR PRINTER?!" 
INKEY QzP.$0 
IEF G=CH"J" OR A=CH" Ii", $2 
P‚" "DE INVERSE: "7" 
FOR I=1 TO N 
Parr” 
FOR Jet TÔ N 
DRUKAF (4,12, BBI, J) /46) 
NEXT 
ER Ned 
NEXT 
P.$3 
ELSE 

















UCzE=ljB=B-1 
KE/LOG 10) 





19890 FIF 
2000 FIF 
2010 B=B-6-A 
ZO WHILE Beù 
2050 Bebi 
2040 P‚t e 
2050 WEND 

2050 IE Ea. te! 
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AC-BK10C 
F‚B",* 

FOR B=C-1 TO C-A STEP-1 
2150 =A (4C/ AOB) 
2140 

2156 
2160 
2170 
2180 
2190 IF E20 P‚ 
2200 IF ABS(C) 
2210 P,ABS(C) 
2220 PEND 









PROC FOUT 

P‚$i2"FOUT OPGETREDEN"? 

P‚ “PROGRAMMA START OPNIEUW!" 
PAUSE 100 

FEND 


PROC INVERSIE 
XIF M=i THEN 


FIN. "MAXIMALE FOUT"%D 
LD=4D/ AG 
PHEL=OGP." 
FOR I=t TO N 
AR=O; 45=0 
FOR TO N 
ZR=EARHABS (LAACI, J)) 
2400 AS=/S+ABS (KAAI, J)} 
2AID NEXT 
2420 
2450 
2440 
2450 % 
2460 % 
2470 FOR I=1 TO N 
2480 FIF 4XX41, 1) #4T; 
2490 FIF ZEE, ID) 24V 
NEXT 
KU=1/ CLVRAT) 
FOR I=1 TO N 
FOR Jesi TO N 
ZBE(I,J) =4UKKAA(G, I) 
NEXT 








XX ID 
V=KEE (1, DD 





2560 
2570 
2580 
259teREM EVAL. ERROR MATRIX ZEE 
Z600 FOR I=l TO N 

Tello FOR E=i TO N 





"VITERATIE * 


P.I2" KREK INVERSIE HK" 7 
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2620 KZ=0 
26350 FOR J=i TO N 
2440 KLELZ+KBE(I, B KABA(, KD 
2650 NEXT 
2660 ZEE(I,K)=-%Z 
2670 NEXT 
2480 NEXT 
2670 FOR I=í TO N 
2700 ZEECI, DD =i+ZEECI, ID) 
2710 NEXT 
2720 HT. 16;P.H 
2730 IF H>503P." "VASTGELOPEN  1""#7$7; PAUSE 
100;56.0 
2740 FOR I=l TO N 
2750 FOR J=l TO N 
2760 FIF ABSCXEE(I,J)) 24D;G.v 
2770 NEXT 
2780 NEXT 
2790 G.o 
Z80OvI=N+ ig JeNtigNEXTENEXT j Hefti 
2810 FOR I=1 TO N 














2820 
UXKCL, 
)aeitii 
CAHCSKEECI, ID) KUEE(I, IJ) KAEECI, I)) KEE CI, LD) 
2830 NEXT ' 
2840 FOR I=t TO N 
2850 FOR J=t TON … 
2860  HEE(I,J)=UXXC1, ID KHEE(I,J) H ESES ti D ui 
2870 NEXT - A nez 
2880 ZEE(I, DI) =i+4EE(I, 1) ad 2E e 
2890 NEXT 55 ZEE ij 
2900 FOR I=î TO N Eide gm 
2910 FOR Kei TON FE EER S 8 
2920 _ ZW=Ò = am : 
2930 FOR J=l TON 7 BE Ni 
2940 ZWA WLEE (1, J} KBE, KE) nz Kd 
2950 _ NEXT er ma 
2960 AKKI, KD =ZW ER Ĳ 
2970 NEXT 5 5 
29850 NEXT E Gi 
2990 FOR I=1 TO N - 7 
0OÛ FOR J=l TUN z z 
ZO10  %BB(I,J) =4XXCI,J) . El 
5020 NEXT 5 7 
3030 NEXT z kel 
5040 G.e E 
5050ob=t = Z 
3060 FOR Iet TO N nt S 
FOR J=t TON Di al 
UBB CI, J) =4BB(I, J) /%G 2 E 
NEXT 2 2 
NEXT s 
N 
= 





WIG 
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Het progr&mma 'VERIFY' vormt een aanvulling op het eerder 
gepubliceerde programma 'RELSAVE': het kan naast gewone ook 
gereloceerde programma’s verifieren, d.w.z. programma's waarvan 
de positie in het geheugen van de Atom niet overeenkomt met de 
naar cassette geschreven adressen, Bovendien wordt nu de 
informatie per blok Cvan 256 bytes) wat economischer op het 
scherm weergegeven. Het verifieren kan worden gestopt door op 
de CIRL-toets te drukken. Overigens kan de routines ook ’unnamed 
Files’ verifieren. De routine is gedefinieerd als P-Charme 
vitbreidings-statement. De lengte van de machinecode bedraagt 
134 bytes. 


Het programma 'CATALOG* vormt een variatie ap het statement 
’CAI' zoals dat standaard in de Atom zit. In tegenstelling tot 
dit laatste wordt de informatie over de file (startadres, 
executie-adres en iengte) nu echter niet langer per blok op het 
scherm afgedrukt, maar per file, waardoor een en ander 
aanzienlijk overzichtelijker wordt. Het programma kan worden 
aangeroepen als subroutine, maar het zal niet mogilijk zijn om 
ar een Basic-commando van te maken. De code beslaat 71 bytes. 

Tot slot nog een waarschuwing: deze routine zal, indien men 
een afdruk van de catalogus op de printer wenst, niet geheel de 
bedoelde uitwerking hebben... 


Ket programma ’PLIST 1.0' is een verbeterde versie van het in 
A.N. Hi gepubliceerde ’PLIST 0.5’. Het werd met name 
geinspireerd door het programma *PBUFFER' van Kans Hegt (zig 
A.N. El, pp.53-50), waarbij de printer zelf een interrupt 
genereert wanneer hij klaar is om nieuwe data te ontvangen. 

Wellicht zult U zich afvragen waarom ik het programma van 
Hans Hegt niet gewoon heb overgenomen, daar het immers 
universelér is dan mijn eigen routine die alleen listings van 
Basic programma’s kan produceren. Welnu, daarvoor zijn een 
aantal redenen te noemen. Ten eerste blijkt uit ervaring dat de 
printer, op tekstverwerking na, het meest wordt gebruikt voor 
het uitdraaien van listings, zodat in de meeste gevallen kan 
worden volstaan met een programma als ’PLIST'. Bovendien ís hest 
zo dat ’PEUFFER' niet toegepast kan worden in tekstverwerkers 
zoals de Werd Pack Rom en ED64, aangezien naast de 
interrupt-vector ook de WRCK-vector wordt afgevangen, wat 
genoemde tekstverwerkers echter eveneens doen... 

Over het afvangen van vectoren wil ik trouwens nog iets 
kwijt: het blijkt telkens weer dat de meeste utilities 
klakkeloos vectoren wijzigen zonder het oude vector-adres op te 
slaan, en dit oude adres vaak aok niet herstellen wanneer de 
routine is beeindigd. Hierdoor wordt het onmogelijk om meerdere 
routines over dezelfde vector te activeren middels een 
doorkoppel=-systeem, hetgeen men in het Engels pleegt aan te 
duiden met de term ’daisy chaining’. Mat andere woorden: weg 
compatibiliteit! 

Eenzelfde opmerking kan gemaakt worden met betrekking tot de 
UIA: hoewel deze interface-chip over zeer krachtige 
Faciliteiten beschikt, waarbij het bijvoorbeeld mogelijk is om 
tegelijkertijd en onafhankelijk van elkaar data in te lezen via 
de B-poort, data weg te schrijven via de A-poort en twee timers 
te laten lopen, zijn de meeste utilities die van de VIA gebruik 
maken zodanig geprogrammeerd dat telkens slechts 1 van 
bovengenoemde mogelijkheden wordt benut, terwijl de andere 
doodleuk worden geblokkeerd of zelfs helemaal uitgeschakeld! 
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Nu gebiedt de eerlijkheid me te zeggen dat ik zelf deze 
Fouten in het verleden eveneens heb gemaakt (zie bv. 'PLIST 
0.5'!), maar daarmee is de zaak niet goed te praten: beter kan 
getracht worden om dergelijke Fouten voortaan te vermijden. In 
'PLIST 1.0' is bv. het volgende veranderd: de routine 
cantroleert vooraf of er al een interrupt=routine actief is die 
gebruik maakt van de CAl-lijn,. slaat de interrupt-vector 
tijdelijk op, en herstelt hem weer wanneer de routine klaar is! 

Koewel dit laatste op zich een goede zaak is, aangezien het 
sen systeem van doorgeluste routines toestaat, bergt het cok 
sen zeker gevaar in zich: “daisy chaining’” is namelijk alleen 
betrouwbaar wanneer ofwel de hetrokken routines permanent 
actief zijn, ofwel wanneer ervoor gezorgd kan worden dat nooit 
een routine wordt ingeschakeld zolang er nog een andere over 
dezelfde vector actief is, aangezien anders bij het herstellen 
van de vectoren het systeem gegarandeerd zal vastlopen! 

Concreet betekent dit voor de ’PLISI'-routine dat het 
weliswaar mogelijk is om haar over een (permanent) actieve 
routine heen te zetten (bv, een klak op interrupt-basis die 
gebruik maakt van Timert van de VIA), maar niet om tijdens het 
printen met behulp van ’PLIST’ een andere interrupt-routine in 
te schakelen, zelfs wanneer deze de IRQ-vector keurig opslaat. 
U bent dus gewaarschuwd! 

Voor het overige gelden voor het gebruik van deze nieuwe 
versie van 'PLISI' dezelfde condities als voor de oude: zie 
AN. Ul, p.34. De routine is tenslotte iets langer geworden 
dan de vorige versie: 255 bytes. Veel plezier ermeel 


2SOBEQR LL2;JSR #FC2B;LDY E#00 
250:LL3;JSR #FFD4 


10 PROGRAM VERIFY’ 270CMP C#CB),Y;BNE LL11 

20 BBOINC #CB;BNE LL5;INC #CC 
30 DIM LL12 230:LLS;LDX @#D4 

40 FOR 1=0 TO 11; LLI=#FFF iN. 30OJSR #FAOB;BNE LL3 

50 310:LL5; JSR #FFED; JMP #C2CF 
50 PRINT $21;GOSUB a 320:LL?;JSR #FBBE;BVC LL6G 

70 PRINT $06;GOSUB a 330BNE LL7;JSR #FBCS;BNE LL7 
80 34OJSR #FBEP;JSR #FS32 


JO ST="VERIFY"; T=T+LENCTD 

100 PT=LLO/256:#80;,TP1=LLOx256, Tre=#B0; T=T+2 
110 A=P;T!1=A 

120 


35OLDA #09;JSR #FBO2 

140 END 3IEOBIT #CD;BPL LLB 
150aP=A; C 370LDA #CB;STA #D4;CLC 
160 ' JBEOLDA #CC;ADC #DI;STA #05 

i ISO:LLE;JSR HFFFE;LDY GHFF 
Tao rorR #FB18 400:LLS; INY; JSR #FFD4 
130LDX @#CB;JSR #FB93,BEQ LL1 HLOCMP C#D4),Y;BNE LLI1 
2OOLDX @#FF;STX #CD #20: LL10;CPY #DA;BNE LLS 
210:LL1;JSR #FA76 430BIT #DB;BMI LL7;BPL LL6G 
BEOLDX @#CS; JSR #FASF ; PHP UUD:LL11;JSR #FFED; JMP #FSFD 
230JSR #FC3IE;PLP;BNE LL7 4507 ; RETURN 


e4O:LLE; JSR #FBBE: BVC LLG 
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10 
20 
30 
40 
50 
50 
70 
80 
30 
100 
110 
120 
130 
140 
150 
160 
170 
180 
130 
zoo 
210 
220 
230 
240 
250 
260 
e7o 
280 


PROGRAM RELSAVE 


REN 
REM 


REM 
REM 
REM 


REM 
REM 
REM 
REM 
REN 


DIM 
FOR 


M.B.U. DIT COMMANDO KAN EEN FILE ONDER EEN 
REM relocatie-adres OP CASSETTE WORDEN GEZET. 


nb. DIT WERKT ALLEEN BIJ HET COS. 


SYNTAXIS: 
’RSAVE 
ALTIJD AFSLUITEN MET <CR> |! 


JOOP ENGELS 

PROF .BROMSTRAAT 102-11 
5525 BH NYMEGEN 

0,1 

15-5-1386 


AUTEUR: 
VERSIE: 
DATUM : 


LL8 
I=0O TO B;LLI=#FFF;N. 


PRINT S21;GOSUB a 
PRINT $06;GOSUB a 


ST="RSAVE"; TaT+LENCT) 
PT=LLO/255 1 #80; TP1=LLOX256; TP2=#80; T=T+2 


A=P; 


END 


T'1ef 


230aP=A;[ 


300 


310: 


320 
330 
340 
350 
350 
470 
380 
330 
400 
410 
He0 
430 
440 
450 


450: 


470 
480 
430 
500 
510 
520 
530 
540 


550: 


a50 
570 
580 


530: 


500 


LLO 
JSR 
JSR 
LDX 
JSR 
LDX 
JSR 
LOX 
JSR 
PHP 
ROR 
PLP 
BEC 
LDX 
JSR 
LL1 
ROR 
JSR 
LDA 
LDX 
BIT 
BUS 
STA 
STX 
LL2 
BMI 
STA 
STX 
LL3 
LDX 


LL4 
#FB18 
e8cF 
LL6 
@#D1 
LL6 
ECD 
LL7 


Da 


LL1 
ECB 
LL7 


#03 
#FA76 
#CF 
#DO 
#D3 
LL@ 
#CD 
KCE 


LL3 
#CB 
#CC 


Ce#TI 


610 
beo 
530 


540: 


550 


550: 


670 
580 
530 
700 
710 
7a0 
730 
740 
750 
760 
770 


780: 


730 
BOO 
810 
820 


830: 


B40 
850 
B50 
870 
880 
B30 
300 
910 
geo 
330 
240 
350 
360 
970 


380: 


330 
1000 


JSR 
JAP 


LL4 
LDX 
LLS 
LDA 
STA 
INY 
INX 
CMP 
BNE 
DEY 
JSR 
DEY 
RTS 


LL6 
JSR 
BNE 
JMP 


LL7 
TXA 
PHA 
LDX 
JSR 
PLA 
TAX 
LOA 
STA 
LDA 
STA 
LOA 
TLC 
BEG 
SEC 
LLB 
RIS 


“NAAM” <BEGIN> <EIND+1> [<EXEC> C<RELOC>IJ' 


#FFDD 
#C558 


#00 


CHOS), Y 
#100, X 


&#OD 
LL5 


#CUFG 


LL7 
LLS 
#FA7D 


etD4 
#FB93 


“nt 
#00, X 
#DS 
HOL, X 
“De 


LLB 


10107: RETURN 
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10 REM PLIST 1.0 

20 @=0;P.S12;DIM KK18 

30 INPUI"STARIADRES CODE *,Q 

HO FOR 1=O TO 18;KKI=0;NEXT 

50 U=#BO;L=#B2; 2=#BB; D=256 

60 P.S21;FOR 1=O TO 1;P=Q;C 

70: KKO; JSR#CF3E 

BOLDA#BEOE ; ANDE#O2; BNE KK1+3 

80: KK1;STY L+1;LOYRO;STY L 

1OOLDACL), Y;CHPE#D; BNE KK1+3 

110BIT#BB01;BMI KK1+3; SEI 

120LDA#20H; STA U 

130LDA#205; STA V+1 

1#OLDAEKK2D; STA#2O4 

150LDAEKK2/D; STA#205 

150LDAEKK4%D; STA 243 

170LDAEKK4/D; STA Z+t 

1B0LDAE#B2 ; STA#BBOE 
190JSR#F7D1; 1; ! P=#03070215; P! t=#EAOG; P=P+5; [ 
BOOCLI; RTS 

210\ : 

220: KK17; PLA; PHA; JMP CU) 

230: KKE; LDA#BBOD ; ANDe#oe 

@HOBEQ KK17;STA#BBOD 

250TXA; PHA; TYA; PHA 
260LDAE2; JSRHFEFB 

B70BIT#BOO1;BUS KK3;BPL KKS 
280:KK3;LDA Z;LDX Z+1;LDY 242; JMPCZ+3) 

E90: KK4; LODY@1; LDACL),Y; BPL KKG 

300: KKS; LDA U; STA#2OH; LDA V+1;STAH2OS 
310LDAEHOE; STAKBEOE; BNE KK1G 

320:KKE; STA L+3; INY;LDACL),Y; STA L+2;LDXEH 
330: KK7; LDACO; STA L+4,X 

340: KKB; SEC; LDA L+2;SBC#CEO8,X; TAY; LDA L+3;SBC#CB1O,X; BCC KKS 
350STA L+3;STY L+2; INC L+4,X;BNE KKB 
360: KKS; DEX; BPL KK7; LDXEH 

370:KK1O;LDA L+4,X;BNE KK12;LDAE#2O; JSR KK14;DEX;BNE KK1O 
380:KK11;LDA L+4,X 

390: KK12; ORAEHIO; ISR KK14; DEX; BPL KK11;LDYG2 
400: KK13; INY; LDACL),Y; JSR KK14; CMPE#D ; BNEKK1A 
WLOCLC; TYA; ADC L;STA L;BCC KKH; INC L+1;BCS KK4 
H20\ 
430: KK14; STA Z;SIX 2+1;SIY Z+2;PLA;SIA 2+3;PLA;STA Z+l 
HHOINC Z4+3;BNE KK15; INC 2+4 
H5O:KK15; LDA Z; JSR#FF1S 

450: KK16; LDAE3; JSRHFEFB 
H7OPLA; TAY; PLA; TAX; PLA; RTI 

4801; NEXT; P. 55 
#30 P‚’”CODE STAAT VAN #"&D”-#"&P’';END 

500 Cc) JEN, 31-5-1586 
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10 REM CATALOG 

2O PRINT $15,$12 

30 PRINT ” CATALOG",' 
40 INPUT "WAAR CODE OPSLAAN *,‚0 

50 PRINT S21;DIM KKS 

60 FOR 1=0 TO 5;KKI=O;NEXT I 

70 FOR 1=0 TO 1;P=Q;L 

BO: KKO; PHP; SEI 

SOLDA @15;JSR AFFF4 

100:KK1;JSR #FBBE;BUS KK2 

1OPLP; JMP #FFED 

120:KK2; BER KK4 

130LDY @#00;JSR #F999 

140:KK3; JSR #F7EC;JSR #FFED 

150BNE KK1 

150:KK4; JSR #FECS 

170JSR #FBE2;JSR #F992 

180B1T #DB;BPL KKS 

190LDA #09; JSR #FBO2 

BOOJSR HFFF2;BNE KK1 
210:KK5;SEC;LDA #05 

220SBC #09; STA #05 
230LDX @#D8;JSR #FAOE 

B4OJSR H#F7F1;BNE KK3 
250I;NEXT I;PRINT $6, *;@=0 

E50 PRINT "DE CDDE STAAT UAN #”,80,"-#",&P,"' 
270 PRINT “ROEP DE ROUTINE AAN MET:”,"’ 
280 PRINT * LINK #”,80,513 
230 END 

300 (c) JEN, 31-5-1886 
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Sinds de massale dumping van de Electron op de Nederlandse 
markt in oktober vorig Jaar, en de bijna even massale aanschaf 
van een Electron daar Atom-bezitters, is er voor velen van ons 
een nieuwe wereld van mogelijkheden opengegaan: een groot 
aantal voorzieningen die we voor de Atom slechts met veel pijn 
en moeite hebben kunnen verwerven, zit in de Electron al 
standaard ingebouwd! Om maar wat te noemen: een goede Basic, 
een beeldscherm in zowel 40 als 80-koloms mode, prima graf ische 
mogelijkheden, kleur, goede geluidsmogelijkheden, een 
schitterend toetsenbord, met functietoetsen, met een 
invoerbuffer, met een programmeerbare reset-toets, en 'last but 
not least’ een geweldig goed Operating System met onder andere 
uitstekende voorzieningen ten behoeve van het cassette 
interface. 

Toch vertoont de Electron ten opzichte van de Atom cok enige 
tekortkomingen: een vrij kleine geheugenruimte en afwezigheid 
van aansluitingen voor een printer, Joystick of 'schakelkaart'. 
Hoswel deze in principe zijn te verhelpen door de aanschaf van 
een 'Plus 1’ expansie-moduie, zullen de meesten onder ons dit 
waarschijnlijk niet gauw doen, aangezien het ding momenteel 
niet onder de tweehonderd gulden te krijgen is, Bovendien zal 
niet iedereen de aanschaf van een analoge (!) joystick de 
moeite waard vinden, en zijn de doosjes met ‘Solid State 
Softwars’' ook niet direct. goedkoop te noemen. 

Nu zult Lt wellicht vragen: zijn er dan alternatieven? Ja, die 
zijn er inderdaad, maar daarover zal ik een andere keer meer 
vertellen: een en ander is nog in ontwikkeling. 

In elk geval is het voor een Atom-bezitter totaal zinloos am 
een Plus 1 aan te schaffen ten behoeve van een parallel 
printer-interface, want dat zit al in de Atom! Het probleem is 
alleen: hoe krijg je de Atom zover om bv. programma-listings 
uit de Electron op papier af te drukken? Het zal duidelijk zijn 
dat het daartoe nodig is om de beide computers op de een of 
andere wijze aan elkaar te koppelen. Een van de eenvoudigste 
methoden om dit te realiseren is ongetwijfeld het gebruik van 
de cassette-poort, aangezien beide computers over 1200 
Baud-routines beschikken. Dit is tegelijk de begrenzing van de 
averdrachtssnelheid, maar voor doorsnee doeleinden zal deze 
snelheid hoog genoeg zijn. Er dient zich echter een probleem 
aan: de manier waarop de Electron en de Atom de informatie naar 
cassette schrijven Chet 'Format’ van de Files) verschiit sterk, 
waardoor directe communicatie onmogelijk is. In principe zijn 
er 2 uitwegen uit deze impasse: ofwel je past een van de twee 
computers aan het transmissie-protocol van de andere aan, ofwel 
je definieert een derde protocol met behuip waarvan informatie 
kan worden uitgewisseld, middels voor beide systemen specifieke 
lees- en schrijfroutines. Zo’n protocol hestaat al, en is 
algemeen bekend onder de naam ‘Basicode’, Zowel voor de Atom 
als voor de Electron zijn lees- en schrijfroutines in Basicode 
ontwikkeld, hoewel men voor de Atom eigenlijk nooit verder is 
gekomen dan de Basicode-1l standaard, die overigens voor ons 
doel (communicatie tussen Atom en Electron) ook toereikend is. 
Ket probleem met Basicode-1l vaar de Atom ligt namelijk niet 
zozeer in het transmissie-protocol als wel in de Basic. Er 
bestaat echter een tussen-oplossing, die ik in A‚N. 5,8 
Cpp.17-21) al uitvoerig heb beschreven: de implementatie van 
BBC-Basic op de Atom. Ik kom hier later nog op terug. Maar 
zaals reeds gezegd, voor het gestelde doel voldoet Basicode-1 
op de Atom prima. 
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Bijgaand treft U de listings aan van zowel een leesroutine 
C’BASILOAD 0,0')> als een schrijfroutine ('BASISAVE 0.0’) voor 
de Atom. Beide programma's stellen geen bijzondere eisen aan de 
configuratie van de Atom. Wel is voor het assembleren van de 
ieesroutine P-Charme in combinatie met de mini-assembler 
benodigd, maar dat zal voor de meesten Uwer geen probleem zijn, 
naar ik mag aannemen. De lees- en schrijfroutines voor de 
Electron zijn wel in Basicode-II geschreven: U kunt er dus 
zonder meer Basicode-programma’'s mee inlezen, executeren en 
(weg)schrijven! De bediening geschiedt via functietoetsen. 

Nog enige opmerkingen bij deze twee programma’s: de 
leesroutine wordt in mode 6 geassembleerd en de code wordt vlak 
ander KIMEM opgeslagen. Dit betekent dat U gedurende het 
gebruik van de routine absoluut niet van made mag veranderen, 
aangezien anders de code verloren gaat! Verder dient te worden 
opgemerkt dat de routine de programmaregels direct 
interpreteert en in het geheugen opslaat, waarbij alle 
overbodige spaties worden verwijderd, zulks om de beschikbare 
geheugenruimte (ca. 1SK bytes) optimaal te kunnen benutten. Dit 
betekent echter tevens dat regels dis uitsluitend uit spaties 
hestaan uit het programma verdwijnen! Hat is maar dat U het 
weet... De code van de leesroutine beslaat, inclusief de 
Basicode-11 subroutines, 1K bytes. 

Wat het schrijfprogramma betreft: dit wordt standaard 
opgeslagen in het geheugengebied van &900-&AFF. Hier staat hat 
echter alleen veilig zolang U geen gebruik maakt van de 
ENVELOPEs no.5-16, een spgech-synthesizer of 'spooled output’ 
naar cassette. Mocht dit toch het geval zijn, dan dient U de 
code elders op te slaan: pas daartoe het adres in regel 30 aan. 
Nog een opmerking met betrekking tot de geboden opties: volgens 
het Basicode-11 protocol worden alleen de programmaregels vanaf 
regel 1000 weggeschreven. Voor het uitprinten van Electron 
programmatuur zult U normaal echter het hele programma naar de 
Atom willen oversturen, zodat ook daarin is voorzien. 

De globale gang van zaken moge nu duidelijk zijn: wanneer U 
een Electron-programma via de Atom wilt uitprinten, stuurt U 
eerst het hele programma over met de schrijfroutine, leest het 
in de Atom in met de ieesroutine, en stuurt vervolgens de 
listing vanuit de Atom naar de printer. Voor de eigenlijke 
koppeling is een eenvoudige 3-polige DIN-kabel met gekruist 
aangesloten in- en uitgangen voldoende. 

Wellicht lijkt deze hele procedure U wat omslachtig voor sen 
zo eenvoudig doel. Toch is het per se noodzakelijk om gebruik 
te maken van een hulp-protocol, aangezien niet alleen, de 
codering van de informatie op cassette voor de Atom en de 
Electron verschillend is, maar ook de wijze van opslag van een 
Basic-programma in het geheugen van heide computers. De 
betreffende routines moeten daarom ook de benodigde conversies 
kunnen verrichten. 

Tevens treedt hier de beperking van communicatie via Basicode 
aan het licht: het is alleen mogelijk om Basic-programma's 
langs deze weg over te zenden, en bv. geen 
machinetasl-programma's of data. Bovendien is steeds conversie 
noodzakelijk. 

Een en ander kan echter toch gerealiseerd, c.q. conversie 
vermeden worden, als U beschikt over een BBC-kaartje in de Atom 
Cof iets wat daarop lijkt): het is dan namelijk voldoende om 1 
van de twee computers aan te passen aan het 
transmissie-pratocol van de andere. Helaas is dit niest za 
eenvoudig als het lijkt. Zelf heb ik vrij veel geexperimenteerd 
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op dit gebied. Aanvankelijk heb ik getracht om de Atom aan te 
passen aan het Format van de Electron, maar dit bleek zeer veel 
moeilijkheden met zich mee te brengen, met name door de 
afwijkende toontjes die de Electron produceert. Daarom besloot 
ik om eens het omgekeerde te proberen. Daartoe koos ik het 
rechttoe-rechtaan format dat de 'unnamed Files’ in de Atom 
hanteren: de File begint met 4 huytes die het begin- en het 
eindadres aangeven, direct gevolgd door de data zelf, en zonder 
checksum. De ‘overhead’ is hier dus minimaal, en het bleek, na 
enig proberen, wonderwel mogelijk om de Electron een fils in 
dergelijke vorm te laten uitsturen: zie het programma 
’ATsave_1'. Dit programma bleek voor mij al gauw zeer nuttig, 
niet alleen voor het afdrukken van Electron-programma’'s via de 
Atom, maar ook voor het ontwikkelen van software voor het 
BBC-kaartje! Hierop zal ik straks nag terugkomen, 

Oe procedure is verder eenvoudig: de Electron vraagt om het 
begin- en het eindadres (+1) van het geheugenhblok dat hij naar 
de Atam moet overzenden: voor een Basic-programma kunt W dan 
bv. respectievelijk PAGE en TOP opgeven. Vervolgens tikt U op 
de Atom '*LOAD' in, eventueel gevolgd door een relocatie-adres, 
drukt bij beide computers tegelijk op de RETURN-toets, en het 
overzenden begint. Na beeindiging zal de Electron een piepje 
geven, zal bij ds Atom de prompt '>' weer verschijnen en kunt 
U, als alles goed is gegaan, het programma in de Atom Cin 
BBC-made!) listen en eventueel uitprinten. Op dezelfde wijze 
kunt U nu machinetaal-programma’s en/of data overzenden, 

Hoewel communicatie van Electron naar Atom het meest zal 
voorkomen, heb ik voor de volledigheid ook een routine in 
omgekeerde richting willen maken, d.w.z, een leesroutine voor 
de Electron: voor de Atom kunt U nu immers volstaan met 
'*SAVE'! Dit programma, 'Afloed 1’, werkt verder analoog aan 
het schrijfprogramma. U hoeft nu echter alleen nog maar een 
eventueel relocatie-adres op te geven. Wanneer U wilt dat de 
Electron de adressen uit de file zelf gebruikt (U weet immers 
welke dit zijn!), kunt U volstaan met 'RETURN’'., Het verdere 
verloop van de procedure is analoog aan de hierboven beschreven 
transmissie van Electron naar Atom, Nog een laatste opmerking: 
zowel de lees- als de schrijfroutine voor de Eisctron is 
uitsluitend te onderbreken met de BREAK-toets. 

Zoals gezegd, is de routine 'ATsave_l’ zeer goed bruikbaar om 
machinecade over te zenden. Dit bracht míj op het idee om de 
Electron te gebruiken als ‘'ontwikkelsysteem' voor de Atom in 
BBC-mode: zelf heb ik namelijk in deze mode maar BK 
werkgeheugen ter beschikking, hetgeen voor de opslag van een 
source-programma al gauw te weinig is. Vandaar dat ik besloot 
om de source op de Electron te schrijven en vervolgens ‘de 
geassembleerde code naar de Atom over te zenden en aldaar te 
executeren! Deze methode heeft bovendien als voordeel dat het 
toch mogelijk blijft om de betreffende programma's binnen de 
Atam te assembleren, met name voor diegenen die het geheugen 
tot &4000 hebben witgebreid, wat overigens ook voor het draaien 
van Basicode-Il programmatuur zeer aanbevelenswaardig, om niet 
te zeggen onontbeerlijk is. 

Op deze wijze heb ik voor de Atom in BBC-mode meerdere 
utilities ontwikkeld, onder andere een aangepaste versie van de 
machinetaal-monitor van Roel Heuvel en een HO/2t VDU-routine. 
Deze laatste is afgeleid van het oorspronkelijk door Paul 
Kuyper voor de Atom ontworpen programma UOU4O-PK, 

Beide utilities kunnen, met enige eanpassingen, het beste 
geplaatst worden binnen het geheugengebied &5000-8&EFFF, zoals 
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voorzien in de MOSROM-U3.0 van Ronald Boers. Er is momenteel 
aen dergelijke MOS-EXICension)-ROM ap &6XXX in ontwikkeling, 
die onder andere de 40/24 VOU-routine en de Basicode lees- en 
schrijfrovtines voor de Atom in BBC-mode zal gaan bevatten. Te 
zijner tijd zal ík U van de vorderingen op de hoogte stellen. 

De monitor komt grotendeels overeen met het oorspronkelijke 
programma van Roel HKsuvel: zie voor sen toelichting A.N. 1,7, 
pp.38-40 en A‚N. 1,8, pp.58-59. Hierin zijn voornamelijk 2 
dingen veranderd: ten gerste is het *-commando geruit gehaald, 
met name met het oog aop de mogelijkheid om de monitor zelf, 
vanuit de MOS-EXT-ROM, te kunnen aanroepen met bv. *MRH. Verder 
is naast de opties M(ove) en VUCerify) nag een optie R(elocate) 
toegevoegd, met behulp waarvan U machinetaal-pragramma's kunt 
rsloceren! Hiervoor gelden echter dezelfde beperkingen als voor 
de maeste andere relocatie-programma's, bv, het RELOC-statement 
uit de Josbox. De syntaxis van R is verder identiek aan die van 
Men VU. Tenslotte dient bij Trace) te worden opgemerkt, dat 
deze mods niet langer kan worden gestopt door het indrukken van 
de ESC-taets: voortaan dient U hiertoe de CIRL-toets te 
gebruiken. De code is viteindelijk iets langer geworden dan die 
van het oorspronkelijke programma: 5 blokken, zijnde 1,25K 
hytes, 

De 40/24 UVDU-routine bestaat uit È delen: het source- 
programma 'UDU 0.4’ en de karaktertabsel 'VOUDATA’. Deze laatste 
is grotendeels overgenomen uit UDUHO-PK. Alleen zijn de 
ASCII-tekens RSF (de ’'underscore’), &50 en B8&7B-&7E aangepast 
aan de BBC-Basic karakterset. Ook de underscore is nu, in 
tegenstelling tot de standaard Atom, direct vanaf het 
toetsenbord te bereiken, en wel met 'SHIFT O’. De keraktertabel 
(3 blokken) dient altijd direct onder de machingecode te staan. 
De code zelf besiaat iets meer dan S blokken, 

De meeste mogelijkheden uit UODU4O-PK zijn in ’'VDU 0,3 
behouden gebleven: onder andere auto-repeat, het gebruik van de 
eursor-toetsen en de COPY-toets, en een mogelijkheid om de 
letters zowel wit op een zwarte achtergrond als ‘zwart op wit" 
weer te geven. Dit wordt bepaald door bit7 van de variabele F: 
zie regel 1840 van het source-programma. De default-instelling 
is wit op zwart: bit7-1, Ongeacht de instelling kunt U de 
karakters ook altijd geinverteerd weergeven. Tel hiertoe &00 
bij de ASCII-waarde op: za zet bv. het commando 'UDU &A1' sen 
geinvertBerd vitroepteken (ASCII-waarde: 821) op het scherm. 

Wat verdwenen is ten opzichte van de oude vautine, is het 
gebruik van de 'Functietoetsen' CTRL 1 t/m 6. Oit betekent met 
name dat het niet langer mogelijk is om de inhoud van de 
invoerbuffer op het scherm te tonen (CTRL 1), om te schakelen 
tusen de Atom textmode en de 40/24 VOU-made (CTRL 2, 3 en 4) of 
direct geinverteerde karakters op het scherm te zetten (CTRL 
6}. Ik heb dit echter niet als een ernstige tekortkoming 
andervonden. 

°VDU 0,3’ heeft bovendien een aantal pluspunten ten opzichte 
van UOU4O-PK: er kan standaard gebruik worden gemaakt van dae 
volledige invoerbuffer (238 tekens), en bij het indrukken van 
de LOCK-toets wordt U voortaan gewaarschuwd door een piepje. 
Verder zal de machine niet meer vastlopen als U CTRL-B indrukt 
terwijl er geen printer staat aangesloten: de cursor houdt dan 
op met knipperen C!), en het programma zal net zolang wachten 
totdat U ofwel de printer aanzet, ofwel op SHIFT drukt, In dit 
laatste geval gebeurt er verder niets. 

Ienslatte bevat het programme 2 extra voorzieningen: een 
routine ‘sendBhit’ voor het sturen van B-hit data naar de 
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printer (zie regels 1060-1080) en een routine om HPOS en VPOS 
te berekenen, aangeduid met het label '.mevpos’ (regels 
H20-450), Deze routine wordt namelijk apart in de MOS-EXT-ROM 
aangeroepen, waarin dit programma dus eigenlijk behoort te 
staan! Daardoor zijn in deze versie van de VOU-routine, die min 
of meer als 'stand alone’ Fungeert, de statements HPUS en VPOS 
niet te gebruiken. Een ander duidelijk nadeel van deze ‘stand 
alone’ versie is de noodzaak om de WRCH-vector af te vangen, 
waardoor ook diverse UVOU-commando’'s nist gebruikt kunnen 
worden, en met name het gebruik van de statements MOVE, DRAW, 
PLGT, MODE, CLG, COLOUR, GCOL en TAB ten sterkste dient te 
worden afgeraden. Tenslotte beslaat deze routine natuurlijk een 
belangrijk deel ven het toch al zo kostbare RAM-geheugen. Mijn 
advies is dus duidelijk: zo snel mogelijk in de MOS-EXT-ROM 
implementeren! 

De routine benodigt permanent B bytes werkruimte (regels 
60-80), Deze zijn hier met opzet buiten het Zero-Page gebied 
gekozen, namelijk van &3F8-&3FF. Normaal zult U hiermee echter 
nooit problemen hebben. 

Nog een laatste opmerking: diverse subroutines, onder andere 
scan’ (regels 1770-1830) hadden in principe direct in de 
MOSROM kunrien worden aangeroepen. De routines zijn echter met 
opzet opnieuw geimplementeerd, teneinde de compatibiliteit en 
de bruikbaarheid van het programma in combinatie met eventuele 
‘updates’ van MOSROM-U3,0 zo groot mogelijk te houden. 

De source-pragramma’s van de monitor en de VOU-routine werden 
beide geschreven in BEC-Basic Issue 1. Dit betekent met name 
dat het gebruik van de assembler-statements EGUB, EGUD, EGUW en 
EQUS is vermeden, hoewel de Electron deze wel Cher)kent. Dit is 
gedaan om diegenen die voldoende geheugenruimte in hun Atom 
hebben de gelegenheid te bieden om deze programma's direct in 
de Atom Cin BBC-made) te assembleren. 


Ik krijg het gevoel dat het tijd wordt om een einde te maken 
aan deze litanie! Tot slet zou ik willen concluderen dat de 
combinatie Atom/Electron zeer veel mogelijkheden biedt, zoals 
vit deze programmatuur mag blijken. 

Voor de liefhebbers: deze tekst werd ingetikt op een speciale 
versie van de Word Pack Rom, die de Electron als BO-kolomskaart 
gebruikt...Sein ze! 


Joop Engels, 
Prof .Bromstraat 102-11, 
6525 BH Nijmegen. 
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10 PROGRAM BASILOAD 0.0 610 JSR TRANS1 

20 620 ASL A 

30 ON ERROR PRINT *';END 630 SBC 205 

HO D=256;C=0;PRINI $15,$12 640 STA RN 

50 PRINT "ONE MOMENT PLEASE...” 650 CMP @38 

50 660 BCC LEADER 

70 PRINT S21;FOR I=1 TO @;C 570 CMP @43 

B0 6BO BCS LEADER 

30 .TA #9B00 530 JSR PR'TEXT 
100 ‚BA TOP 700 „AS "FOUND LEADER” 

110 710 .BY LF 

120:STX = HO2 720 .BY CR 

130: ETX = #03 730 NOP 

140: LF = #0A 740 RIS 

150:CR - #0D 750 

160: SPACE = #20 750: TRANS1 

170: EOF = #FF 770 JSR TRANS2 
180 780: TRANS2 

190: BASE’ L = #B0 790 LDX @#00 

200: BASE 'H = #81 800 LDA PORT'C 
210:BASE1 - #B2 810 AND @#20 

220: BASE2 = #84 B20 STA RI 
230:LINENUM'L = #B6 830: WAIT 'FOR’ TRANSITION 
240:LINENUM'H = #87 B40 INX 
250: CSUM = #88 850 LDA PORT'C 
250 850 AND e#20 
270: RC = #21C 870 CMP RT 

2HO: RN = #21D 880 BEQ WAIT’FOR’ TRANSITION 
230: RH = #21E 890 TXA 

300: RT = #21F 300 ADC RU 
310: RU = #220 310 STX RU 

320 320 RTS 
330: SCREEN = #801F 930 

340: PORT 'C = #B002 940: READ" BYTE 
350: PR'IEXT = #F7D1 950: READ ' STARTBIT 
350: OSROCH = #FFE3 950 JSR TRANS2 
370 370 CMP RN 
380: LOAD’ PROG 380 BCC READ’STARIBIT 
390 SEI 990 LDY @#0B 
400 JSR SEARCH'LEADER 1000: NEXT’ BIT 

410 JSR WAIT'FOR'STX 1010 JSR TRANS1 
420: LOOP 1020 CHP_RN 

#30 JSR READ’ AND’ CHECK 1030 BCS BIT’O 

440 JSR STORE 1040: BIT’1 

450 STA SCREEN 1050 JSR TRANS1 
450 CMP GETX 1050 SEC 

470 BNE LOOP 1070 BCS ROTATE 
480 JSR READ'AND’CHECK 1080:BIT’O 

480 CLI 1090 CLC 

500 RTS 1100: ROTATE 

510 1110 ROR RH 

520: SEARCH’ LEADER 1120 DEY 

530 LDA @#00 1130 BNE NEXT 'BIT 
540 STA RC 1140 LDA RH 

550: LEADER 1150 RIS 

5BO JSR TRANS1 1150 

570 CMP @#17 1170: READ’ AND’ CHECK 
580 BCC LEADER 1180 JSR READ'BYTIE 
590 INC RC 1190 PHA 

500 BANE LEADER 1200 EOR CSUM 
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1210 STA CSUM 1810 INY 

1220 PLA 1820 LDA LINENUM'H 
1230 AND E#7F 1830 STA (BASE2),Y 
1240 RTS 1840 INY 

1250 1850 LDA LINENUM'L 
1250:WAIT' FOR' STX 1850 SIA (BASE2),Y 
1270 JSR READ'BYTE 1870 INY 

1280 CMP ECSTX OR #80) 18B0 JSR PLUS'Y 
1230 BNE WAIT'FOR'STX 1830 LOY &#00 

1300 STA CSUM 1300 

1310 RTS 1910: COPY 

1320 1920 LDA CBASE1),Y 
1330: STORE 1930 CMP @CR 

1340 STA CBASE’LD,Y 1940 BEQ STOP 

1350 CMP CBASE’L),Y 1950 STA CBASE2),Y 
1350 BNE FULL 1950 INY 

1370 INC BASE’L 1970 BNE COPY 

1380 BNE OK 1880 

13380 INC BASE’H 1990: STOP 

1400 BMI FULL 2000 JSR PLUS’Y 
1410: OK 2010 LOX @BASE1 
1420 RIS ° 2020 INY 

1430 2030 JSR PLUS'Y 
1440: FULL 2040 JSR DECIMAL'DIGITS 
1450 DEC BASE’H 2050 BNE NEWNUM 
1450 LDA ECR , 2050 LDA ECR 

1470 LDY @#FE 2070 STA CBASE2),Y 
1480: LAST'CR 2080 INY 

1830 DEY 2030 LDA GEOF 

1500 CMP CBASE’L),Y 2100 STA CBASE2),Y 
1510 BNE LAST'CR 2110 RTS 

1520 INY 2120 

1530 LOA BETX 2130:NBYTE 

1540 STA CBASE'L),Y 2140 JSR PLUS'1 
1550 INY 2150 

1560 STY BASE'L 2150: SEARCH’ CR 
1570 JSR PR'TEXT 2170 LDA CBASE1),Y 
1580 .AS "MEMORY FULL!” 2180: COMP' CR 

1530 .BY LF 2130 CMP @CR 

1500 .BY ER 2200 BNE NBYTE 
1510 NOP 2e10 RIS 

1520 PLA 2220 

1530 PLA 2230: SKIP' SPACES 
1540 CLI 2240 LDA ESPACE 
1650 RIS 2850 BNE COMP'SPACE 
1550 2250: NSPACE 

1570: CONVERT 2270 JSR PLUS’1 
1580 LDX EBASE1 2280: COMP ’ SPACE 
15690 LDY @#00 2290 CMP CBASE1),Y 
1700 €300 BEU NSPACE 
1710:NLINE 2310 RIS 

1720 JSR SEARCH'CR 2320 

1730 JSR PLUS'1 2330:NO' DIGIT 

1740 ISR DECIMAL’DIGITS 2340 LDA LINENUM'L 
1750 BEQ NLINE 2350 ORA LINENUM'H 
1760 2350 RIS 

1770: NEUNUM 2370 

1780 LDX EBASE2 2380: DECEMAL ‘DIGITS 
1780 LDA @CR 2330 LOY @#OO 


1800 STA (BASE2e), Y 2400 STY LINENUM'L 
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2410 STY LINENUM'H ___3010:BAI’ PROGRAM 

2420 JSR SKIP’SPACES 3020 JSR PR'IEXT 

2430 BNE COMP'DIG 3030 .AS *BAD PROGRAM” 

2440 3040 NOP 

2450: NCHAR 3050 BRK 

2450 JSR PLUS'1 3060 

2470: COMP’ DIG 30703;NEXT I;PRINT $6 

2480 LDA CBASE1),Y 3080 

2490 SEC 3090 S=CP/D+1)*D;M=#8000 

2500 SBC @#30 3100 IF ?1B*0>M THEN S=#2300 

2510 BMI NO’OIGIT 3110 

2520 CHP @#OA 3120 DO 

2530 BCS NO'DIGIT 3130 PRINT $12 

2540 PHA 3140 PRINT ” BASILOAD- 1” 
2550 LOA LINENUM’H 3150 PRINT ” mmmmmnmememennmnnne "| 
2560 PHA 3160 PRINT "ENTER START ADDRESS FILE”'’ 
2570 LDA LINENUM'L 3170 PRINT "(BETWEEN #",85,"” AND #",8M,") ”' 
2580 ASL A 3180 INPUT A 

2580 ROL LINENUM’H 3190 UNTIL A>=S AND A<M AND AxD=0 

2500 BMI OVERFLOW 3200 !BASE'L=A 

2510 ASL a 3210 PRINI '“PRESS A KEY TO START * 
2520 ROL LINENUM'H 3220 LINK OSRDCH 

2530 BMI OVERFLOW 3230 PRINI '' 

2540 ADC LINENUM'L 3840 LINK LOAD’ PROG 

2550 STA LINENUM’L 3250 PRINT $7 

2550 PLA 3260 XIF PSCREEN=EIX THEN 

25670 ADC LINENUM’H 3270 PRINT “PROGRAM LOADED”’ 

2580 ASL LINENUM’L 3280 PRINT "CHECKSUM ” 

2590 ROL A 3230 XIF ?CSUM=O THEN PRINT ”OK”' 

2700 BMI OUERFLDW 3300 ELSE PRINT "ERROR"’ 

2710 STA LINENUM'H 3310 ELSE PRINT “LOADING INTERRUPTED"’ 
2720 PLA 3350 | BASE1=A; | BASE2=A 

2730 ADC LINENUM'L 3330 LINK CONVERT 

2740 STA LINENUM'L 3240 PRINT "YOU ARE IN BASIC AT #”,8A,‚”."" 
2750 BCC NCHAR 3350 ?18=A/D 

2760 INC LINENUM'H 3360 END 

2770 BPL NCHAR 

2780 

2790: OVERFLOW 

2800 JSR PR'TEXT 

2810 .AS “NUMBER TOO LARGE” 

2820 NOP - 

2830 BRK 

2840 

2850: PLUS’ Y 

2850 CLC 

2870 TYa 

2880 ADC #00, X 

2890 STA #OO,X 

2900 BCS INCREMENT 

2910: BACK 

2320 RIS 

2930 

2340: PLUS’ 1 

2350 INC #00,X 

2950 BNE BACK 

2970: INCREMENT 

2380 INC #01,X 

23950 BPL BACK 


3000 
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10 

eo 

30 

40 

50 

50 

70 

80 

So 
100 
110 
120 
130 
140 
150 
150 
170 
180 
130 
200 
210 
220 
230 
240 
250 
250 
270 
280 
230 
300 
310 
320 
330 
340 
350 
350 
370 
380 
3350 
400 
410 


REM BASISAVE 0.0 

DIM 007 ,MM7 

F.1=OTD7; QQI=-1; ANI=-1;N. 

Q=#80; 5=#88 

U=#FB7A; 2=4FCDS 
P‚S21;F,1=OTO1;DIMPC-1);C 
:0QO JSR#FCAA; LDXR7; JSR U 

LDX@7; JSR U;SIX S 

LDY @#FF;LDA @#02 
:BQ1 JSR QRe; INY 
:QQ6 LDa CO,Y 

CMP @#OD;BNE QQI;JSR goe 

TYA;LDYEO; SEC;ADC Q;STA Q 

BCC 997; INC Q+1 
:Q07 LDA C0),Y;BPL MMO 

LDA @a;JSR QQe 

LDA S;JSR MM7 

LDX@7; ISR U; LDXE7; JSR U 

STX #BOOP; RIS , 

:MMO STA#25; INY; LDACUD ,Y 

STA#1B; LDXE4 

:MM1 LDAEO; STAHUS, X 
:MM@ SEC;LDA#15; SBCHC50B, X; TAY; LDA#25; SBCHC51O, X; BEC MM3 
STA#ES;SIYHIE; INCHHS,X; BNE MM@;:MM3 DEX;BPL MMA 
LDXE5; :MMH DEX;BEQ MMS;LDA#45,X;BEQ MM4 
:MMS LDA#4S,X;IRAEHZO; JSR QQE; DEX; BPL MMS;LDYE2;BNE QQS 
:QU2 STA #8O1F;ORA @#80 

PHA; EDR S;STA S;PLA; :MM7 
STXHEC; PKP; SEI ; PHA; STA#CO 

ISR 2;LDA@#B; STA#C1; CLC 
:EQ3 BCCQQH; LDXE7 ; STX#BOOP 

LDXE1; JSR Z+2; BMIAQS 

:QQ4 LDA@Y; STA#BOOP; JSR Z 

INC#BOO2; JSR Z 

:CQ5 SEC; ROR#CO; DECHC1 ; BNEQG3; LIXHEC; PLA; PLP; RTS 
IiN.;P.S6;D0 

P‚S1e” BASISAUVE- 1 

IN.” ”BEGINADRES FILE ”A 

UNTIL Ax256=0 AND ?A=13 

P.';!Q=A;LINK QQO 

P,’S7”KLAAR”"';END 
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MOS-EXT-ROM 


Zoals ik de vorige keer al schreef: er is momenteel een 
MOS-EXTCension)-ROM CMER) op REXXX voor de Atom in BBC-mode in 
ontwikkeling. Welnu, bij deze wil ik graag een serste versie 
daarvan presenteren. 

Eerst volgt een globale beschrijving van het geheugengebruik, 
telkens in pagina's van 256 bytes. 


&5O : initialisatie MER en afhandeling nieuwe *-commanda'’s 
861-852: Basicnde-I1 subroutines voor de Atom in BBE-made 
853-864: Basicode-Il leesroutine 

&565-855: Basicode-II schrijfroutine 

867-859: karaktertahel VDU-routine 

&6A-85E: code VOU-routine 

&6F : initialisatie VOU-routine en opslag MER-vectoren 


Dan nu een kleine toelichting: de MER is geheel opgezet 
volgens de richtlijnen zoals Ronald Boers die gegeven heeft in 
zijn beschrijving van de MOSROM U3.0: zie A‚N. 4,5, pp.8-18. 
Deze versie van de MOSROM is dan ook voor het gebruik van de 
MER onontbeerlijk. 


Na een BREAK wordt de MER geinitialiseerd: de 40/24 
VOU-routine wordt geactiveerd, waarbij standaard wordt gekozen 
voor witte letters op een zwerte achtergrond, 

Verder wordt een nieuwe RDCH-vector geinstalleerd, met name 
ten behoeve van auto-repeat en een knipperende cursor. 

Vervolgens worden de afmetingen van het nieuws VDU op 24 
regels van elk 40 kolommen ingesteld, waarna de initialisatie 
wordt afgesloten met de activering van het weergeven van kleine 
letters (P&EB=O) en het geven van een MODEO-commando. 

Bij dit laatste nog even een opmerking: de VDU-routine kan 
standaard alleen in MODEO gebruikt worden. De modes 1 t/m 7 
blijven echter voor het gebruik van graphics zonder meer 
toepasbaar , 

Voor een verdere beschrijving van de VOU-routine verwijs ik 
naar mijn artikel over de combinatie Atom/Electran, 


Na de systeeminitialisatie hiedt MOSROM V3.0 de mogelijkheid 
om de MER een reset-melding te laten genereren, bv. aver: de 
aanwezigheid ven een nieuwe UDU-routine. Hier wordt deze 
mogelijkheid gebruikt om een *HELP-commando te geven, waarna u 
het volgende te zien krijgt: 


Nem OSCUI-commands: 

#BCL *BCE HHELP 

Het laatste commando zal dus alleen deze melding produceren. 

De eerste twee dienen voer het aanroepen van de Basicode-Il 


lees- en schrijfrautines: 


*BCL = BasiCode Load 
eRCG we HasiCode Save 
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De syntaxis van deze commando's is als volgt: 


*BCLCO) : -copieer BC-II subroutines naar PAGE 
“lees een BC-I1 programma in en wacht daarbij op het 
verschijnen van het eerste byte, zijnde 'SIX' C&B2) 


*BCL1 1 -copieer subroutines niet 
—wacht bij inlezen op 'SIX' 
*BEL2 : -copieer subroutines niet 


=wacht niet op 'STX’ 


*BCSCO) : =schrijf het hele programma vanaf PAGE 
naar cassette in BC-II formaat 
*BCS1 1 „schrijf alleen vanaf regel 1000 naar cassette 


De volgende Foutmeldingen kunnen worden gegenereerd: 


=Unknown command CERR=254) 
=Bad syntax CERR=220) 


Zie voor een verdere beschrijving van de Basicode lees- en 
schrijfroutines: A‚N. 5,2, pp.17-21. 


Nog een opmerking m.b.t. het geheugengebruik van de MER: 
Ronald Boers had hiertoe binnen Zero-Page de hytes &30-&90 
gereserveerd, en deze worden dan ook benut, 

Daarbuiten maakt de Basicode-leesrnutine gebruik van de bytes 
&3FO-8IF4, en de VDU-routine van de bytes 8&3F8-R3FF, 


Zo, dat was het zo ongeveer. Tot slot wil ik nagmaals 
benadrukken dat de hier gepresenteerde versie van de MER niet 
meer is dan een eersta aanzet, wat ook in de wijze van 
programmeren tot witdrukking komt: er is getracht om alles 
duidelijk in te delen en niet onnodig op bytes te beknibbelen. 
Bovendien is nog wat ruimte vrij, vooral in pagina &6F. 

Het geheel lijkt me echter een goede illustratie van de 
mogelijkheden, zeker wat betreft het gebruik van Basicode-I1 op 
de Atom in BBC-mode, Moge het U tot inspiratie dienen 


Joop Engels. 


P‚s. De versie die U in het archief zult aantreffen is bedoeld 
om in RAM C!) vanaf 85000 te worden geladen, en dient 
gestart te worden met *RUN, Wilt U er een EPROM van maken, 
dan is het voldoende om op geheugenplaats 86000 de waarde 
&BE te zetten. De code van 8B6FFO-86FF7 kan dan vervallen. 
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KKK MOVIE KKH 

Programma waarmee bewegende beelden gemaakt en vertoond kunnen 
warden: 
Om een film te maken moet men eerst een aantal pliaaties maken, 
die daarna als ’beeldschermdump’ op schijf gezet worden (SAVE 
BOGG S800) , 
Door nu in het menu te kiezen voor ’aanmaken film’ kunnen een of 
meerdere plaaties ingelezen worden, die daarna ataebroken worden 


naar een 'vector-tormaat”. 


Dit formaat neeft als voordeel dat rechte liinen zeer efficient 
Dpgeslagen worden, zodat zelfs in AbK reaelink veel piaaties 


opgslagen kunnen warden. 


Als de olsaties ingevoerd zi im, kunnen deze snel vertoond worden, 


of bewaard worden on schijf. 


Een film kan ingelezen worden wan s 





hiif, waarna de film vertoond 





kan worden, of zangevuld kam worden met extra niaaties. 
DOFMERKEING: plaatjes kunnen alleen efficient opgeslagen worden al 
ze relatief weinia kronkeltae lianties en/of lasse punt 
bevatten. Als dit miet het geval is, kan het gecodeerde 
plaatie wel ens langer worden dam het origineel worst 


case: 1&%& bk 1}. 


FILES: 
MVIE,.M : Kootdorogramma met geassembleerde code 
versie) 
MVIE.A 1 assembler=-source (tr leringh ende vermaeck ) 
BALJsmy « voorbeeldfilmpie 
JETsmv : voorbeeldfijmpje 


(korte 


